Работа с циклами

Требуется посчитать четные и нечетные цифры введенного числа в 1C Предприятие

Имеется пример кода на КуМир:

алг чет_нечет
нач
цел n, even, odd
ввод n
even := 0
odd := 0
нц пока n > 0
если mod(n,2) = 0 то even := even + 1
иначе odd := odd + 1
все
n := div(n,10)
кц
вывод "Четных: ", even, нс
вывод "Нечетных: ", odd
кон