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

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

beginn:=1;while n<>0 do beginwrite(\'Введите число: \');read(n);if n=0 then writeln(\'Работа программы завершена\')else if n mod 2 = 1 then writeln(n,\' - нечетное число\')else writeln(n,\' — четное число\');writeln();endend.