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

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

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

var a:integer;
begin
  repeat
    writeln ('vvedite chislo');
    readln(a);
      if (a mod 2)=0 then
         writeln('chetnoe')
      else writeln(' ne chetnoe');
  until a=0;
  readln();
end.

Вывод консоли:

vvedite chislo
1
 ne chetnoe
vvedite chislo
2
chetnoe
vvedite chislo
3
 ne chetnoe
vvedite chislo
4
chetnoe
vvedite chislo
5
 ne chetnoe
vvedite chislo