Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр - Free Pascal

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

4. Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр. если можно более простым способом.

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

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

Var i: integer;
 
Function fact(d: byte): longint;
Var i: byte;
Begin
fact:=1;
if d<>0 then
For i:= 1 to d do
fact:=fact*i;
End;
 
Begin
For i:=100 to 999 do
if i = fact(i div 100) + fact ((i div 10) mod 10) + fact (i mod 10) then
Writeln(i);
Readln;
End.

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

Объявлены две переменные: i типа integer и fact типа longint.
Определена функция fact, которая вычисляет факториал числа. Она принимает параметр d типа byte.
В функции fact объявлена вспомогательная переменная i типа byte.
В функции fact выполняется итерация от 1 до d и производится умножение факториала на текущее значение i.
В основной части программы выполняется итерация от 100 до 999.
Внутри итерации проверяется, равно ли текущее значение i сумме факториалов цифр числа, полученных с помощью функции fact.
Если условие выполняется, то число выводится на экран.
В конце программы требуется ввод с клавиатуры, который не используется в данном коде.