составьте программу, которая определяет, является ли сумма цифр введенного целого трёхзначного числа чётным числом
пример ввода:
567
пример ввода:
сумма цифр числа 567 - чётное число

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