terça-feira, 15 de setembro de 2009

Exercicio 1

progran lukinhas

var  val1,val2:integer
begin;
readln(val1);
readln(val2);
lf(val > val2) then
writeln(val1);
Wlse
writeln(val2 > val1) then
writeln(val2);
lf(val1 mod 2)= 0 then
Write (numero par);
Else
lf(val2 mod 2)= 0 then
writeln(numero impar);
Else
Writeln(numero impar);
End.

Nenhum comentário:

Postar um comentário