Значение функции ех (экспонента от х) равно сходящейся сумме бесконечного ряда: ex=1+x/1! + x2/2! + x3/3!

var
  i, n: integer;
  a, x, Summa: real;
begin
  write(' x = ');
  readln(x);
  write(' n = ');
  readln(n);
  a := 1;
  Summa := 1;
  for i := 1 to n do
  begin
    a := a * x / i;
    Summa := Summa + a
  end;
  writeln;
  writeln(' Summa =  ', Summa:0:7)
end.