2° program a ,var val num: integer;
begin
val:=5;
num:=8;
if (5 MOD 2= 0) then (5 mod 2 nao vai ser = a 0 e sim 1)
begin
write (val); (como 5mod 2 nao é 0 entao nao vai receber esse comando)
end;
else
begin ( irá receber este comando)
wrinte;
end.