{ нахождение суммы ряда
  x^n/n!    }
var x: double;
{ функция }
function sumr(x: double): double;
var i: integer;
    s,prom,eps: double;
begin
   s:=0;
   prom:=1;
   eps:=1.0E-06;
   i:=1;
   repeat
     begin
       s:=s+x*(prom/i);
       prom:=(prom*x)/i;
       i:=i+1;
     end;
   until prom < eps;
   Result:=s;
end;
{ конец процедуры }
{ основная программа }
begin
  write('задайте x:  ');
  readln(x);
  writeln('сумма ряда равна:  ',sumr(x):12:7);
end.