quarta-feira, 16 de setembro de 2009

programeslei;



var num1,num2:integer;



begin

readln(num1);

readln(num2);

if (num1>num2) then

writeln (num1);

else

if(num2>num1) then

writeln (num2);

if (num1 mod 2) = 0 then

writeln ('numero par');

else

writeln ('numero impar');

if num2 mod 2 = 0 then

writeln ('numero par');

else

writeln ('numero impar');

end.

Nenhum comentário:

Postar um comentário