Номер 6 помогите решить в паскале

Question

Номер 6 помогите решить в паскале

---

Answer 1

Const eps=0.00001;
var an,s:real; n:integer;
begin
n:=0;
an:=1/2;
s:=0;
while an>=eps do
 begin
 s:=s+an;
 n:=n+1;
 an:=an*1/(2*(2*n+1));
 end;
writeln('s = ',s:7:5);
end.

Результат:
s = 0.59229