Помогите решить задачку., Вычислить приближенное значение бесконечной суммы Опции

[alex1927dk]

Пожалуйста, помогите решить задачку. Вот условие:

Вычислить приближенное значение бесконечной суммы 1-1/3+1/5-1/7+...(для сравнения ее точное значение равно пи/4). Необходимое приближение считается полученным, если модуль разности двух последовательно вычисленных слагаемых суммы не превышает некоторого числа ε> 0.

[Lapp]

приближенное значение бесконечной суммы 1-1/3+1/5-1/7+...

  e:= 1e-6;
  s:= 1.0;
  i:= 1.0;
  k:= 1.0;
  while 1.0/i>e do begin
    i:= i+2.0;
    k:= -k;
    s:= s+k*1.0/i
  end;
  writeln('s = ',s);