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

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

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

var i: integer;
begin
   writeln('Введите целое число:');
   readln(i);
   while i <> 0 do
    begin
     if (i mod 2 = 1) or (i mod 2 = -1) then
      writeln('Число нечетное')
     else
      writeln('Число четное');
     writeln('Введите целое число:');
     readln(i);
    end;
   readln();
end.