Вычислить 9! и 1! — Pascal(Паскаль)

function Fact(N: integer): Longint;
begin
  if N > 1 then
    Fact := N * Fact(N - 1)
  else
    Fact := 1
end;
 
begin
  WriteLn(Fact(9), ' ', Fact(1));
  ReadLn
end.