Модуль
unit Formula;
interface
function F(n:integer):extended;
implementation
function F(n:integer):extended;
function Fac(n:integer):longint;
begin
if n=1 then Fac:=1
else Fac:=n*Fac(n-1);
end;
begin
F:=1+2/fac(n);
end;
end.
Программа
uses crt,Formula;
var n:integer;
begin
clrscr;
Write('n=');readln(n);
write('(n!+2)/n!=',F(n):0:10);
readln
end.