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

Вложенные циклы

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

var a: integer;
begin
  repeat
    writeln('write your num');
    read(a);
    if (a mod 2 = 0) then
      writeln('is odd')
    else
      writeln('is not odd');
  until (a=0);
end.