Question

напишите программу для решения следующей задачи дано целое число является ли оно четным?

Answer 1

var a:integer;
begin
readln(a);
if odd(a) then
begin
writeln('число а нечётное');
end
else
writeln('число а чётное');
end.