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

program Znanija;
var n,a,i:integer;
begin

readln(n);

a:=n;

while(n > 0) do
begin;

i := i + 10 + n mod 10;
n := n div 10;

end;

if i mod 2 = 0 then  
writeln('Сумма цифр числа ', a, ' - чётное число')
else  
writeln('Сумма цифр числа ', a, ' - нечётное число');


end.