Решение задачи №11 из главы 13.1

Задача №11 из главы 13.1

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

var   a:integer;
begin
   writeln('vvedite chislo:');
   readln(a);

   while (a <> 0) do
   begin   //  начало тела внешнего цикла
        if ((a mod 2)=0) then
          write('chislo chetnoe')
        else
          write('chislo nechetnoe');
      writeln(); // перенос строки
      writeln('vvedite chislo:'); // очередной раз запрашиваем число в цикле
      readln(a);
   end;  // конец тела внешнего цикла
   writeln('zaversheno!');
   readln();
end.