Нужное приближение считается полученным, если вычислена сумма нескольких первых слагаемых , и очередное слагаемое оказалось по модулю меньше данного положительного числа e. (1+ x^1/x! +x^2/x! +x^3/x! +=e^x);

Var S,x,St,F,C,n:real;
Begin
Write('x = ');ReadLn(x);
S:=1;
St:=1;
F:=1;
C:=1;
n:=0;
Repeat
n:=n+1;
F:=F*n;
St:=St*x;
C:=St/F;
S:=S+C;
Until (e > C)and(n > 7);
WriteLn('e^',x,' = ',S);
End.