Question

Помогите написать программу в Паскале:

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  (1+SeqGen(ReadInteger('n='),i->2*i/(2*i+1),1).Sum).Println
end.

Пример
n= 10
9.8191254222214