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.
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.