program Project13; {$APPTYPE CONSOLE} var K:integer;A,S:real; begin for k:=3 to 1000000 do begin A:=1/((2*k-1)*(2*k+1)); S:=S+A;end; writeln(S:5:5); readln; end.