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

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

var a:integer;
begin
  writeln('Vvedite celoe chislo: ');
  readln(a);
  while a<>0 do
  begin
    if(a mod 2=0) then writeln('chislo chetnoe.')
    else writeln('chislo nechetnoe.');
    writeln('Vvedite celoe chislo: ');
    readln(a);
  end;
end. 

Консоль:

Vvedite celoe chislo: 
8

chislo chetnoe.
Vvedite celoe chislo: 
9

chislo nechetnoe.
Vvedite celoe chislo: 
0