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

Question

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

---

Answer 1

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.

Answer 2

//PascalABC.NET

begin

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

end.