Написать программу, определяющую является число, введенное с клавиатуры, четным или нечетным

Программа позволяет ввести несколько целых чисел, отличных от нуля. Если ввести число 0, то программа прекратит работу.

begin

n:=1;

while n0 do

begin

write ('Введите число: ');

read (n);

if n=0 then writeln ('Работа программы завершена') else

if n mod 2 = 1 then writeln (n,' - нечетное число')

else writeln (n,' - четное число');

writeln ();

end

end.