составить алгоритм цикл структуры

[XoryBur]

Вычислить значение суммы бесконечного ряда с заданной точностью е. На печать вывести значение суммы и число членов ряда, вошедших в сумму

[Mad_Cat]

var
c,s:real;
i:integer;
e:real;
begin
e:=0.0001;
c:=1;i:=1;
s:=0;
while abs(c/i)>e/4 do
begin
s:=s+c/i;
inc(i,2);c:=-c;
end;
s:=s*4;
writeln(s:5:4,i-2:7);
end.

3.1415 39999