Составить программу, которая среди всех трехзначных чисел находит числа, равные сумме факториалов своих цифр — Pascal(Паскаль)

uses crt;

function Fac(n: word): longint;
begin
  if n = 0 then
    Fac := 1
  else
    Fac := n * Fac(n - 1);
end;

var
  i, a, b, c: word;

begin
  clrscr;
  for i := 100 to 999 do
  begin
    a := i div 100;
    b := i div 10 mod 10;
    c := i mod 10;
    if Fac(a) + Fac(b) + Fac(c) = i then
      write(i, ' ');
  end;
  readln

end.