sexta-feira, 18 de setembro de 2009

program ricardo;
var val,num:integer;
begin
val:=5
if(valMOD 2=0)then
begin
write(val);
end;
else
begin
write(num);
end;
end.
R= 8

Nenhum comentário:

Postar um comentário