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

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

var a: integer;
begin
  repeat
    writeln('Vvedite chislo');
    readln(a);
    if a = 0 then
      writeln('ноль это ноль')
    else if a mod 2 = 0 then
      writeln(a,' chetnoe chislo')
    else
      writeln(a,' nechetnoe chislo')
  until (a = 0) ;
  writeln('Exit');
  readln();
end.