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

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

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

program zadacha11;
var i : integer;
begin
  i:=1;
  while i > 0 do
    begin
      writeln('Vvedite chislo');
      readln(i);
       if i > 0 then
         If i mod 2 = 0 then
           writeln('Chislo cetnoe')
         else
           writeln('Chislo ne cetnoe');
      writeln('- - - -');
    end;
  readln();
end.