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

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

begin
n:=1;
while nlt;gt;0 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.