Создать функцию пользователя, определяющую количество четных цифр введенного числа - PascalABC.NET

Формулировка задачи:

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

Решение задачи: «Создать функцию пользователя, определяющую количество четных цифр введенного числа»

Листинг программы

function CountEven(n : integer): integer := (n <> 0) and not odd(n mod 10) ? CountEven(n div 10) + 1 : 0;
begin
  write(CountEven(ReadlnInteger('n = ')))
end.

Объяснение кода листинга программы

Функция CountEven принимает на вход целое число n.
В случае, если n не равно нулю и остаток от деления n на 10 не является нечетным числом, то возвращается результат рекурсивного вызова функции CountEven для числа, полученного путем деления n на 10, увеличенный на единицу.
Если условие из пункта 2 не выполняется, то возвращается ноль.
Ввод числа осуществляется с помощью функции ReadlnInteger, которая выводит сообщение n = и ожидает ввода числа с клавиатуры.
Результат работы функции CountEven выводится на экран с помощью функции write.