Дано число. Определите будет ли сумма его цифр четным. Если 《да》, выведите сообщение "сумма цифр числа...равна... она четная", если 《нет》, выведите сообщение "суммацифрчисла....равна... она нечетная"

Помогите, пожалуйста.
СРОЧНО НУЖНО

На языке Python:

n = int(input())

i = n

sum = 0

while i != 0:

   sum = sum + i % 10

   i = i // 10

if sum % 2 == 0:

   print("Сумма цифр числа ", n, " равна ", sum, ", она чётная.", sep="")

else:

   print("Сумма цифр числа ", n, " равна ", sum, ", она нечётная.", sep="")

На языке Pascal:

program summa_comparator;

var n,i,sum:integer;

begin

write('Введите число >> ');

read(n);

i := n;

sum := 0;

while i <> 0 do begin

sum := sum + i mod 10;

i := i div 10;

end;

if sum mod 2 = 0 then

writeln('Сумма цифр числа ', n, ' равна ', sum, ', она чётная.')

else

writeln('Сумма цифр числа ', n, ' равна ', sum, ', она нечётная.')

end.