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

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

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

var
  i: integer;
begin
  writeln ('Vvedite celoe chislo: ');
  readln(i);
  while i <> 0 do
     begin
       if ((i mod 2) = 0) then
         write('Vvedennoe chislo chetnoe')
       else
         write('Vvedennoe chislo nechetnoe');
       writeln();
       writeln ('Vvedite celoe chislo: ');
       readln(i);
     end;
  writeln('Programma zaverschena');
  readln();
end.