Не используя стандартные функции ( за исключением ABS), вычислить с точностью ɛ > 0: Y = ℮ˣ = 1 + x ⁄ 1! + x²⁄ 2! + . . . + xⁿ⁄ n! + . . . — Pascal(Паскаль)

program cikl_;
 
uses crt;
 
 var
 x, y, e, xn, p: real;
       n, factn: integer;
 
BEGIN
 
   clrscr;
 
       n:=1;
       y:=1;
      xn:=1;
   factn:=1;
 
  writeln ('Введите значения x , e');
  readln (x, e);
 
    repeat
 
      xn:=xn*x;
      factn:=factn*n;
      p:=xn/factn;
      y:=y+p;
      inc(n);
    until p < e;
 
  writeln (y);
 
  readln;
 
 
END.

uses crt;
var x,e,s,t:real;
    i:integer;
begin
clrscr;
write('x=');readln(x);
repeat
write('e (0,1) e=');readln(e);
until(e>0)and(e<1);
i:=1;s:=0; t:=1;
while abs(t)>e do
 begin
  s:=s+t;
  t:=t*(x/i);
  inc(i);
 end;
writeln('Y=',s:0:5);
writeln('e^x=',exp(x):0:5);
readln
end.