Разработать итерационный алгоритм вычисления суммы бесконечного ряда - Pascal ABC

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

Разработать итерационный алгоритм вычисления суммы бесконечного ряда с точностью до §=10^-4. В программе предусмотреть: -ввод исходных данных с клавиатуры, -проверку их корректности и вывод результатов на экран; -вычисление точного значения заданной функции и количества слагаемых для достижения указанной точности.

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
var x,e,t,s:real;
    n:integer;
begin
e:=0.0001;
write('x=');
readln(x);
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x/n;
  s:=s+t;
 end;
writeln('S=',s:0:4,' n=',n+1);
write('e^-x=',exp(-x):0:4);
end.