Решение задачи с Абрамова №115в

program Pr115_3;
var
  k, n : integer;
  suma : real;

begin
  readln(n);
  suma := 0;
  for k := 1 to n do
  suma := suma + 1 / sqr(2*k+1);
  writeln(suma);
  readln;
end.