Оформить в виде программы вычисления функции ex = 1 + x + x2 / 2! + x3 / 3 !+… и сравнить полученный результат со значением, полученным при использовании стандартной функции EXP (X), для х = 2.3; 8.5 — Pascal(Паскаль)

Uses
  CRT;

var
  x, sum, f: real;
  i, n: integer;

begin
  Write('Vvedite x: ');
  Readln(x);
  Write('Vvedite N: ');
  Readln(n);
  sum := 1;
  f := 1;
  for i := 1 to n do
  begin
    f := f * i;
    sum := sum + (exp(i * ln(x)) / f);
  end;
  writeln('Sum:=', sum);
  Readln

end.

Uses
  CRT;

var
  x, sum, f, rez: real;
  i, n, j: integer;

begin
  Write('Vvedite x: ');
  Readln(x);
  Write('Vvedite N: ');
  Readln(n);
  sum := 1;
  f := 1;
  for i := 1 to n do
  begin
    f := f * i;
    rez := 1;
    for j := 1 to i do
      rez := rez * x;
    sum := sum + (rez / f);
  end;
  writeln('Sum:=', sum);
  Readln

end.