Algoritmo "2"

program exemplo;
var val,num:interger;
begin
val:=5
num:=8
if(5mod2=0)then
write(num);
end;