Посчитать сумму ряда с заданной точностью - Turbo Pascal

Формулировка задачи:

Подскажите, пожалуйста, как посчитать сумму ряда с точностью а=0,01. Заранее спасибо!

Решение задачи: «Посчитать сумму ряда с заданной точностью»

Листинг программы

n:=1;
t:=-1;
s:=t;//начальная сумма=t
while abs(t/(2*n+1))>a do
 begin
  n:=n+1;
  t:=-t/n;
  S:=s+t/(2*n+1);
 end;
writeln(s:0:4);//если не нужны пробелы перед числом, то пишут 0, писать вместо него число меньше или = второму нет смысла

Объяснение кода листинга программы

Переменная n инициализируется значением 1.
Переменная t инициализируется значением -1.
Переменная s инициализируется значением t.
Задается начальная сумма ряда, которая равна t.
В цикле while выполняется следующая последовательность действий:
- n увеличивается на 1.
- t уменьшается на -t/n.
- Сумма ряда s+t/(2*n+1) увеличивается на t/2.
Цикл while продолжается до тех пор, пока abs(t/(2*n+1)) больше заданной точности a.
После выхода из цикла while выводится значение переменной s.
Выводится результат в виде числа с точностью до 4 знаков после запятой.