Задание 11 Урок 13.1

Задание 11 Урок 13.1

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

var i : integer;
label m1;
begin
  m1:
  write('Введите число и нажмите ENTER:');
  readln(i);
  while (i <> 0) do
    begin
      if ((i mod 2) = 0) then
          writeln('Число ', i, ' Четное')
      else
          writeln('Число ', i, ' Нечетное');
      goto m1;
    end;
  write('Программа завершена! Нажмите ENTER!');
  readln();
end.