cоставить программу определяющую является ли введённое с клавиатуры целое число чётным

Question

cоставить программу определяющую является ли введённое с клавиатуры целое число чётным

Answer 1

var a: integer;

begin

  readln(a);

  if a mod 2 = 0 then writeln('Четное')

  else writeln('Нечетное');

end.