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

1

Ответы и объяснения

2012-10-04T23:52:35+04:00

var a: integer;

begin

  readln(a);

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

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

end.