Pascal. Найти сумму всех четных цифр натурального числа

Задание: Pascal. Найти сумму всех четных цифр числа. Натуральное число вводится с клавиатуры.

Дано:

Pascal(Паскаль) - язык программирования

n - число, в котором необходимо найти сумму всех четных цифр

sum - сумма всех четных чисел

Решение:

program Hello;
var 
    n: longint;
    sum: integer;
 
begin
    readln(n);  
    sum := 0; 
    while n > 0 do begin
        if n mod 2 = 0 then //Проверка на четность числа
            sum := sum + n mod 10; //Добавляем остаток от деления на 10
        n := n div 10; //Отсекаем последнюю цифру без остатка
    end;     
    writeln(sum);
end.

Результат:

890377322
12