Program cikl_7-

Uses crt-

Var e,s,ss:real-

i,n:integer-

begin

ClrScr-

s:=1- ss:=0- e:=0.001- — n:=1-

while abs(s-ss)&gt-=e do

begin

ss:=s-

s:=s+1/sqr(2*n-1)-

n:=n+1-

end-

writeln(s:5:3)-

readln-

end.