Составить программу для нахождения суммы четных цифр в числе

ПЕР
число, сумма, цифра: ЦЕЛ;

УКАЗ
сумма := 0;
ПОКА число > 0 ВЫП
цифра := число ОСТАТОК 10;
ЕСЛИ ЧЕТ(цифра) ТО УВЕЛИЧИТЬ(сумма, цифра) КОН
число := число ДЕЛИТЬ 10
КОН