Помогите написать программу вычисления факториала!

[Pascalhelp]

Помогите, пожалуйста.
Необходимо написать программу для вычисления.
Заранее благодарю всех откликнувшихся!

[Mad_Cat]

ограничения на n и m?

[newerow1989]

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

var n,m:integer;
    r:real;
begin
   Write('n = '); Readln(n);
   Write('m = '); Readln(m);
   r:=fact(n-fact(m))/(fact(m)+fact(fact(n)))+fact(fact(m));
   Writeln(r:5:10);
   Readln;
end.

[Аватар]

newerow1989

n!!<>(n!)!
10!!=2*4*6*8*10
11!!=3*5*7*9*11

[newerow1989]

Тогда

function fact(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=2 to n do
      Result:=Result*i;
end;

function fact2(n:integer):integer;
var i:integer;
begin
   Result:=1;
   For i:=1 to n div 2 do
      If n mod 2=0 then
         Result:=Result*(2*i) else
         Result:=Result*(2*i+1);
end;

var n,m:integer;
    r:real;
begin
   Write('n = '); Readln(n);
   Write('m = '); Readln(m);
   r:=fact(n-fact(m))/(fact(m)+fact2(n))+fact2(m);
   Writeln(r:5:10);
   Readln;
end.