Дано целое число K. Найти произведение цифр числа К - Pascal

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

Дано целое число K. Найти произведение цифр числа К.

Решение задачи: «Дано целое число K. Найти произведение цифр числа К»

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

var
    k, p: Integer;
begin
    Write('k='); ReadLn(k);
    p:=1; k:=Abs(k);
    repeat
        p := k mod 10 * p;
        k := k div 10;
    until (k = 0);
    WriteLn('p=', p);
end.

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

Инициализируется переменная k как целое число.
Инициализируется переменная p как целое число.
Выводится сообщение k= и считывается значение для переменной k.
Устанавливается начальное значение переменной p равное 1.
Производится абсолютное значение числа k.
Начинается цикл: пока k не равно 0
- Умножается переменная p на остаток от деления k на 10.
- Делится переменная k на 10 без остатка.
Выводится значение переменной p.