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

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

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

var i,j: integer;
begin
  i := 1;
  while (i <> 0) do
     begin
     writeln('vvedite 4islo - ');
     readln(i);
        if ((i mod 2)=0) then
           writeln('4etnoe 4islo - ', i)
        else
        writeln('ne4etnoye - ', i);
     end;
  writeln('poka!');
  readln();
end.