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

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

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

var
  i:integer;
begin
  i:=1;
  while i<>0 do
  begin
    writeln('vvedite chislo: ');
    readln(i);
    if ((i mod 2)=0) then
      writeln('chislo chetnoe')
    else
      writeln('chislo nechetnoe');
  writeln();
  end;
  readln();
end.