Program qwer;
uses 
  crt;
var 
  x:real; 
  n,i,b:integer;
begin 
  b:=1; 
  write('введите вещественное число x='); 
  readln(x); 
  write('введите конечное значение цикла n='); 
  readln(n); 
  writeln;   //переход на другую строку
for i:=1 to n do     
  begin     
   b:=b*i;  //факториал      
   x:=x+(power(x,i))*b;  //сумма последовательности     
   writeln('значение функции exp в точке  x',i,'=',x+1)     
  end;
end.