Описать функцию Exp1(x,eps) вещественного типа (параметры x, eps — вещественные, eps > 0), находящую приближенное значение функции exp(x): exp(x) = 1 + x + x2 / 2! + x3 / 3! + … + xn / n! + … . В сумме учитывать все слагаемые, большие eps. С помощью Exp1 найти приближенное значение экспоненты для данного x при шести данных eps — Pascal(Паскаль)

uses crt;
function Exp1(x,e:real):real;
var u,un,t:real;
    n:integer;
begin
n:=0;
t:=1;
u:=1;
while abs(t)>=e do
 begin
  n:=n+1;
  t:=t*x/n;
  u:=u+t;
 end;
Exp1:=u;
end;
var x,e:real;
    i:byte;
begin
clrscr;
write('x=');
readln(x);
writeln('Аналитически   =',exp(x):0:8);
writeln;
writeln('При точности');
e:=0.1;
for i:=1 to 6 do
 begin
  e:=e/10;
  writeln(e:0:7,'  Exp1=',Exp1(x,e):0:8);
  writeln;
 end;
readln
end.