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

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

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

var a : integer;
begin
 writeln('vvedite chislo');
 readln(a);
 while a <> 0 do
   begin
     if odd(a) then
       writeln('ne chetnoe')
     else
       writeln('chetnoe');
     writeln('vvedite chislo');
     readln(a);
   end;
 writeln('konech');
 readln();
end.