Нужна помощь в решении задачки в паскале

//PascalABC.NET

begin

 seqgen(readinteger(), x -gt; (2 * x) / (2 * x + 1), 1).Product.Print;

end.

function P(n: integer): real;

begin

 if n = 1 then Result := 2 / 3

 else Result := P(n - 1) * 2 * n / (2 * n + 1)

end;

begin

 var n := ReadInteger();

 Write(P(n))

end.