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

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

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

program lesson13_11;
var
    a : integer;
begin
    while true do
    begin
        writeln('enter number a');
        readln(a);
        if a = 0 then
            break
        else if a mod 2 = 0 then
            writeln(a, ' - even number')
        else
            writeln(a, ' - odd number');
	end;
    readln();
end.