Pascal abc помогите решить

Question

Pascal abc помогите решить

---

Answer 1

Var n,i,z:integer; an,s:real;
begin
readln(n);
s:=0;
z:=1;
for i:=1 to n do
 begin
 z:=-z;
 an:=z/(2*i+1);
 s:=s+an;
 end;
writeln('s = ',s:6:4)
end.

Пример:
5
s = -0.2560