Найти сумму четных цифр числа

Вводится натуральное число. Найти сумму четных цифр, входящих в его состав.

Переменные:

• n - исходное число,
• sum - сумма четных чисел.

Алгоритм решения задачи:

1. Присвоить переменной sum значение 0.
2. Пока значение n больше нуля выполнять следующее:
   1. Проверить последнюю цифру числа на четность путем нахождения остатка от деления на 2. (Мы можем делить все число, предварительно не извлекая последнюю цифру, так как при таком делении по-сути проверяется четность последней цифры.)
   2. Если цифра четная, добавить ее к sum. (Цифра извлекается нахождением остатка от деления на 10.)
   3. Избавиться от последней цифры числа путем ее деления нацело на 10.
3. Вывести значение sum на экран.

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;
            n := n div 10;
    end;

    writeln(sum);
end.

Примеры выполнения программы:

3456
10

13562
8

Если требуется посчитать сумму нечетных цифр, то в заголовке условного оператора следует использовать логический знак "не равно". В Паскале обозначается как <>.