Урок 13.1 Задача 11

Урок 13.1 Задача 11

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var a:integer;
begin
  readln(a);
  while not(a=0) do
    begin
      if ((a mod 2)=0) then
        writeln('Chetnoe')
      else
        writeln('Nechet');
      readln(a);
    end;
  readln();
end.