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.