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

http://fkn.ktu10.com/?q=node/8697

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

program task11_lesson13_1;
var a : integer;
begin
  repeat        //можно заменить на WHILE, но тогда 0 не пройдет проверку четности
  writeln('Check parity. Enter number :');
  readln(a);
  if ((a mod 2) = 0) then
     writeln('even number')
  else writeln('odd number');
  until (a = 0);               // пользователь ввел 0, проверили его четность
  readln();                    // вышли из цикла
end.