Является ли творение цифр 3-значного числа четным? (Работа с оператором WHILEWEND)

http://bit.ly/2u9oKch
Решение:
var n,a,b:integer;
begin
readln(n);
a:=n;
while(ngt;0) do
begin;
b:= b*n mod 10;
n:= n div 10;
end;
if b mod 2 = 0 then
writeln (Творение цифр числа - четное число)
else
writeln (Творение цифр числа - нечетное число);
end.

Примечание: программа выполнена в среде PascalABCNET; программка работает не только с трёхзначными числами, но и больше.