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

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

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

program task12;
var   a,i:integer;
begin
  repeat
    writeln('vvedite chislo');
    readln(a);
    if (a=0) then
      break
    else
    begin
      if (a mod 2=0) then
        writeln('Chet')
      else
        writeln('NeChet');
    end;
  until (a=0);
  readln();
end.