Multiplicar "N" Factoriales ?

[luisagpe]

Me olvide de poner mi codigo

Código Delphi [-]
[FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif] procedure TFormClasif1.btnCalcularFac1Click(Sender: TObject);
var
  n, n2, factorial, factorial2, i, i2, acumulador, RS:integer;
begin
  n:=strtoint(edit1.Text);
  n2:=strtoint(edrs.Text);
  acumulador := 1;
  factorial := 1;
  factorial2 := 1;
for i:=1 to n do
  factorial := factorial*i;
  ResN.Caption := inttostr(factorial);
for i2 :=1 to n2 do
  factorial2 := factorial2*i2;
  acumulador := acumulador*factorial2;
  factR.Caption:=inttostr(acumulador);
  RS := factorial / factorial2;
  resultadoFinal.Caption:=inttostr(RS);
 end;[/font]