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

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

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

Var
 n : longint;
 pr:real;
Begin
Readln(n);
pr:=1;
While n<>0 Do
Begin
 pr:=pr*(n mod 10);
 n:=n div 10;
End;
Writeln('pr:=',pr);
readln
End.

Решение задачи: «Найти произведение цифр натурального числа»

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

program Mult;
 
  function MulDigits(n: integer): integer;
  begin
    if n <> 0 then
      MulDigits := (n mod 10) * MulDigits(n div 10)
    else
      MulDigits := 1;
  end;
 
var
  n: integer;
begin
  readln(n);
  writeln(MulDigits(n));
end.

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

В данном коде на языке Pascal ABC реализована функция MulDigits, которая принимает целое число n в качестве аргумента и возвращает произведение его цифр. Если число равно нулю, то возвращается 1. В переменной n хранится введенное пользователем натуральное число. При вызове функции MulDigits(n), сначала выполняется проверка: если n не равно нулю, то происходит деление числа на 10, результат сохраняется в переменной n, а остаток от деления (единицы) умножается на результат вызова функции MulDigits(n/10). Затем происходит повторный вызов функции MulDigits(n/10), но уже с новым значением n. Этот процесс продолжается до тех пор, пока n не станет равным нулю. Когда это произойдет, цикл прерывается и возвращается результат вычисления произведения цифр числа. Если же n равно нулю, то в функцию передается 1, и этот результат будет возвращен. В основной части программы считывается введенное пользователем натуральное число, затем вызывается функция MulDigits(n) и результат выводится на экран.