Вычислить сумму и найти число слагаемых, которые вошли в сумму - Turbo Pascal (29387)

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

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

Решение задачи: «Вычислить сумму и найти число слагаемых, которые вошли в сумму»

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

                            repeat //ввод х>0 с проверкой
write('x>=0 x=');
readln(x);
until x>=0;
repeat //ввод точности от 0 до 1 с проверкой
write('0<e<1 e=');
readln(e);
until (e>0)and(e<1);
y:=x-1; //заменим х-1 на y, чтобы меньше писать
z:=x+1;//то же и х+1
n:=0; //нулевой член ряда
t:=y/z;//его значение
s:=t; //начальная сумма
while abs(t/(2*n+1))>e do//пока значение очередного члена, деленное на 2n+1
                         //больше точности
 begin
  n:=n+1;//следующий член
  t:=t*y*y/z/z;//умножаем предыдущий на y^2 и делим на z^2 (увеличиваем степени на 2)
  s:=s+t/(2*n+1);//делим на 2n+1 и плюсуем
 end;
write('S=',s:0:4); //вывод результата
                        