uses crt;
var x,u,ui,e,t:real;
    i:integer;
begin
clrscr;
writeln('Приближенное вычисление значения функции F(x)=exp(x)');
writeln('разложением в степенной ряд U(i)=x^i/i!  с точностью 10^-4');
write('x=');
readln(x);
e:=0.0001; {заданная точность вычислений}
i:=0; {нулевой индекс}
u:=0; {начальное значение итоговой суммы}
t:=1;{знчение члена ряда при i=0}
ui:=1; {текущая сумма}
while abs(t)>=e do {пока модуль очердного члена ряда не меньше точности}
 begin
  i:=i+1;{следующий член}
  u:=ui; {запомним сумму}
  t:=t*x/i;{домножаем на х(возводим в степень) и делим на индекс(обратный факториал)}
  ui:=ui+t;{суммируем}
 end;
writeln('U=',u:0:5,' достигнутая точность=',abs(u-ui):0:5);
write('Вычисленное значение функции=',exp(x):0:5);
readln
end.