Решение задачи 11 из главы 13.1

Решение задачи 11 из главы 13.1

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

program Project11;
var i: integer;
begin
  repeat
    writeln('Vvedite zeloe chislo:');
    readln(i);
    if ((i mod 2) = 0) then
         writeln('Chislo ', i, ' chetnoenoe')
    else
       writeln('Chislo ', i, ' nechetnoenoe');
  until (i=0);
  writeln('Konez zikla!');
end.