Algoritmo



program exemplo;

var val, num: integer;

begin

val:=5;
num:=8;if (val MOD 2= 0) then

begin

write (val);

end;

else

begin

write

(num);

end;

end.R=5