function factorial(n:integer):integer;
 var i:integer;
begin
 Result:=1;
 for i:=1 to n do Result:=Result*i;
end;
 
function rowsum(x:extended;n:integer):extended;
 var i: integer;
begin
 Result:=0;
 for i:=1 to n do
  Result:=Result+(exp((3*n+1)*ln(x)))/factorial(3*n+1);
 end;