exercio 2


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