найти все 3-х значные числа представляемые в виде сумм факториалов своих цифр

var
  i: integer;
 
function factorial(n: integer): integer;
var
  i, f: integer;
begin
  i := 1; f := 1;
  for i := 2 to n do f := f * i;
  factorial := f
end;
 
begin
  for i := 100 to 999 do
    if (factorial(i mod 10) + factorial((i div 10) mod 10) + factorial(i div 100)) = i then
      write(i);
end.

program cikl11;
 var
 a: integer; // ñîòíè
 b: integer; // äåñÿòêè
 c: integer; // åäèíèöè
 MF:array [0..6] of integer; // ìàññèâ ôàêòîðèàëîâ äî 6 ïîñêîëüêó 7!=5040
 // ÷óòûðåõçíà÷íîå ÷èñëî
 i : integer;
 begin
 writeln(' Ðåøåíèå ');
 // çàäàåì ìàññèâ ôàêòîðèàëîâ
 // ÷òîáû ñîêðàòèòü êîëè÷åñòâî ïîäñ÷åòà ôàêòîðèàëîâ
 MF[0]:=0;
 MF[1]:=1;
 for i:=2 to 6 do MF[i]:=MF[i-1]*i;
 
 for a:=1 to 6 do
 for b:=0 to 6 do
 for c:=0 to 6 do
 begin
 
 if (MF[a]+MF[b]+MF[c]<1000)and // ïðîâåðêà óñëîâèÿ
 (MF[a]+MF[b]+MF[c]>99)and // âûâîäà ÷èñëà
 (MF[a]+MF[b]+MF[c]=a*100+b*10+c) //
 then writeln(a*100+b*10+c);
 
 if (MF[a]+MF[b]+MF[c]>=1000) then break; // äîñðî÷íûé âûõîä èç öèêëà ÷òîá
 // ñýêîíîìèòü èòåðàöèè
 end;
 
 end.