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

http://fkn.ktu10.com/?q=node/8697
Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var a: integer;
begin
repeat
       writeln ('введите число');
        readln (a);
               if ((a mod 2)=1)  then writeln ('число нечетное')
       else writeln ('четное');
       until (a=0);
       write('end');
end.