Дано натуральное n. найдите сумму чисел 1/3+1/5+1/7++1/(2х+1)

Var    n, i: word;   
sum: real;
begin   
write ('n = ');    
readln (n);   
sum := 0;   
for i := 1 to n do       
sum := sum + 1/(2*i+1);   
writeln (sum:6:5);
end.

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

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

Пример
10
1.1808745777786