Question

дано натуральное число определить является ли оно четным (паскаль)

Answer 1

Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.