[[coso]]

Hola luisa,

Código Delphi [-]

function Factorial(n : integer) : integer;
begin
        result := 1;
        if n = 1 then exit;
        result := n*Factorial(n-1);
end;

procedure Form1.Button1Click(sender : TObject);
var
         i,n : integer;
begin
         n := 1;      
         for i := 0 to Memo1.Lines.Count - 1 do
              n := n*Factorial(strtoint(Memo1.Lines[i]));

         ShowMessage(inttostr(n));
end;

en el memo1 se pondrian los numeros de los cuales se quiere el producto de sus factoriales.