Вычислить сумму N слагаемых заданного вида - Turbo Pascal

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

При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните суммирование для двух значений E, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму.Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение x, лежащем в интервале (-R, R).

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
uses crt;
var n,i:integer;
    x,e,t,s:real;
begin
clrscr;
repeat
write('Введите |x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('Введите натуральное n>1 n=');
readln(n);
until n>1;
writeln('Значение при N=',n);
t:=x/2;
s:=1+t;
for i:=2 to n do
 begin
  t:=-t*(2*i-3)*x/(2*i);
  s:=s+t;
 end;
writeln('S=',s:0:5);
writeln('Значение при точности e=0.0001');
e:=0.0001;
n:=1;
t:=x/2;
s:=1+t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*(2*n-3)*x/(2*n);
  s:=s+t;
 end;
writeln('S=',s:0:5,' N=',n);
writeln('Значение при точности e=0.00001');
e:=0.00001;
n:=1;
t:=x/2;
s:=1+t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*(2*n-3)*x/(2*n);
  s:=s+t;
 end;
writeln('S=',s:0:5,' N=',n);
write('sqrt(1+x)=',sqrt(1+x):0:5);
readln
end.