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

Переменные:

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

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

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

var 
    n: longint;
    sum: integer;
begin
    readln(n);   
    sum := 0;
    while n > 0 do begin
        if n mod 10 mod 2 = 0 then
            sum := sum + n mod 10;
        n := n div 10;
    end;    
    writeln(sum);
end.

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