Найти сумму бесконечного числового ряда с заданной точностью ε - Turbo Pascal

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

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

Решение задачи: «Найти сумму бесконечного числового ряда с заданной точностью ε»

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

uses crt;
var n,z:longint;
    e,t,s:real;
begin
clrscr;
repeat
write('Введите точность 0,e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
t:=1;
z:=1;
s:=1;
while abs(t)>e do
 begin
  n:=n+1;
  z:=-z;
  t:=z/sqr(n);
  s:=s+t;
 end;
writeln('S=',s:0:5);
writeln('pi^2/12=',pi*pi/12:0:5);
readln
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Ввод точности с клавиатуры.
Инициализация переменных n, z, e, t, s.
Запуск цикла while, который выполняется до тех пор, пока abs(t) больше или равен e и меньше единицы.
Внутри цикла переменная n увеличивается на единицу, переменная z меняется на -z, переменная t вычисляется как z/sqr(n), а переменная s увеличивается на t.
По завершении цикла выводится значение переменной s.
Выводится значение pi^2/12.
Программа завершается и ожидает ввода пользователя.