Написать программу которая находит сумму и количество четных цифр числа n,заданного с клавиатуры

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

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

УКАЗ
  число := Приём.Число();
  количество := 0; сумма := 0;
  ПОКА число > 0 ВЫП
    цифра := число ОСТАТОК 10;
    ЕСЛИ ЧЕТ(цифра) ТО
      УВЕЛИЧИТЬ(сумма, цифра); УВЕЛИЧИТЬ(количество)
    КОН;
    число := число ДЕЛИТЬ 10
  КОН;
  Вывод.ЧЦел("^%d %d", количество, сумма, 0, 0)

КОН Задание.