Составить программу для нахождения суммы четных цифр в числе
ПЕР число, сумма, цифра: ЦЕЛ; УКАЗ сумма := 0; ПОКА число > 0 ВЫП цифра := число ОСТАТОК 10; ЕСЛИ ЧЕТ(цифра) ТО УВЕЛИЧИТЬ(сумма, цифра) КОН число := число ДЕЛИТЬ 10 КОН