Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами

program Znanija;var n,a,i:integer;begin
readln(n);
a:=n;
while(n > 0) dobegin;
i := i * n mod 10;n := n div 10;
end;
if i mod 2 = 0 then  writeln('Произведение цифр числа ', a, ' - чётное число')else  writeln('Произведение цифр числа ', a, ' - нечётное число');end.