То, как нужно писать на PascalABC с его возможностями. Если Вас устрашает запись на пятой строке, то не стоит волноваться. Читаем с конца: превращаем число в строку (IntToStr), берём i-тую цифру (цикл будет идти с каждым умножением цифры на следующую), превращаем обратно цифру в строку и умножаем на имеющееся произведение.
То, как нужно писать на PascalABC с его возможностями. Если Вас устрашает запись на пятой строке, то не стоит волноваться. Читаем с конца: превращаем число в строку (IntToStr), берём i-тую цифру (цикл будет идти с каждым умножением цифры на следующую), превращаем обратно цифру в строку и умножаем на имеющееся произведение.
Старый, затратный и некрасивый.