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

Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами program Znanija; var n,a,i:integer; begin readln(n); a:=n; while(n > 0) do begin; i := i * n mod 10; n := n div 10; end; if i mod 2 = 0 then  writeln('Произведение цифр числа ', a, ' - чётное число') else  writeln('Произведение цифр числа ', a, ' - нечётное число'); end.

Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами 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.