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

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

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

var a:integer;
begin

writeln('vvedite chislo > 0');
readln(a);
 while (a > 0) do
  begin

   if((a mod 2) = 1) then
    writeln(a, '- ne chetnoe')
   else
    writeln(a, '- chetnoe');
  writeln('vvedite chislo > 0');
  readln(a);
  end;

writeln('konec!');
readln();
end.