Рекурсия: найти произведение цифр натурального числа - Pascal ABC

Написать программу с рекурсивной функцией. Найти произведение цифр натурального числа.

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

Function MulCif(A : Longint) : Longint;
Begin
  If A>0 then MulCif:=(A mod 10)*MulCif(A div 10) else MulCif:=1;
end;

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

В функции MulCif переменной A присваивается значение Longint.
Если A больше нуля, то вызывается рекурсивная функция MulCif с аргументом A div 10, а результат умножается на остаток от деления A mod 10.
Если A равно нулю или отрицательное, то результатом будет 1.
Функция завершается и возвращает результат.