Вычислить ряд (х^(3n+1))/((3n+1)!) — Pascal(Паскаль)

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;