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

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

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

program U13_1Z11;
var a: integer;
begin
  writeln('vvedite chislo');
  readln(a);
  while a<>0 do
    begin
      if ((a mod 2)=0) then
        writeln('chetnoe')
      else
        writeln('nechetnoe');
      writeln('vvedite chislo');
      readln(a);
    end;
  writeln('poka!');
  readln();
end.