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

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

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

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

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

function YOHOHO(const x: LongWord): Word;
var
    Result: Word; //удалить если будет ругаться на повторное объявление переменной
begin
    Result := 1;
    if (x <> 0)
    then
    begin
        if (x mod 10 < 5)
        then
            Result := Result * x mod 10;
        Result := Result * YOHOHO(x div 10);
    end;
    YOHOHO := Result;
end;
var
    x: LongWord;
begin
    Write('x='); ReadLn(x);
    Write('Result=');
    if (x = 0)
    then
        Write(x)
    else
        Write(YOHOHO(x));
end.

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

Создается функция YOHOHO, которая принимает аргумент типа LongWord и возвращает тип Word. Переменная Result инициализируется значением 1.
Если аргумент не равен 0, то выполняется проверка:
- Если цифра в конце числа (x mod 10) меньше 5, то результат умножается на эту цифру.
- Результат затем умножается на результат вызова функции YOHOHO для числа, деленного на 10.
Значение функции YOHOHO сохраняется в переменной Result.
В основной программе:
- Число считывается с экрана.
- Если число равно 0, то выводится само число.
- В противном случае выводится произведение цифр, меньших 5, найденное функцией YOHOHO.