По данному натуральному значению n вычислите 1+1/3+1/5+1/7++1/2n+1 на вход программе подаётся натуральное число n< 100000

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('S=',1+Range(1,ReadInteger('n=')).Select(i->1/(2*i+1)).Sum)
end.

Пример:
n= 10
S=2.1808745777786