Для заданного x вычислить — Pascal(Паскаль)

{                Пример 2.4. Для заданного  x  вычислить

                          x     x2     x3                 xn
                 S = 1 - ───  + ───  - ─── + ... + (-1)n ───
                          1!    2!     3!                 n!

             Здесь n! = 1*2*3*...*n  (читается как " n-факториал").

                                    Тест
           ╔═══════════════╦═════════════════════════════════════╗
           ║    Данные     ║            Результат                ║
           ╠═══════╤═══════╬═════════════════════════════════════╣
           ║       │       ║          2     2^2     2^3          ║
           ║ x = 2 │ n = 3 ║ S = 1 - ───  + ───  - ───── = -0.33 ║
           ║       │       ║          1     1*2    1*2*3         ║
           ╚═══════╧═══════╩═════════════════════════════════════╝
}
Program SumUp;
  Uses Crt;
  Var x, S, P : Real;  {P - очередное слагаемое}
      i, n    : Integer;
BEGIN
  ClrScr;
  Write('Введите n = ');   ReadLn(n);
  Write('Введите x = ');   ReadLn(x); WriteLn;

  S := 1; P := 1;
  For i := 1 to n do
    begin
      P := - P*x /i; {получение очередного слагаемого}
      S := S + P
    end;

  WriteLn('О т в е т : S = ', S : 7 : 3 ); ReadLn
END.