Программа

VAR X:real;                           { Аргументы }
    Eps:real;                         { Точность вычислений }
    n:integer;                        { Счетчик }
    Add:real;                         { Слагаемое }
    Sign:-1..1;                       { Знак -1^(n-1) (степень -1) }
    PowerX:real;                      { Степень X }
    Sum:real;                         { Сумма }
BEGIN
  WriteLn;                            { Пропуск строки }
  Write('Введите аргумент X=');       { Вывод подсказки ввода X }
  ReadLn(X);                          { Ввод X }
  Write('Введите точность Eps=');     { Вывод подсказки ввода точности }
  ReadLn(Eps);                        { Ввод точности }
  Sum:=0;                             { Начальное опрделение суммы }
  n:=0;                               { Начальное опрделение счетчика }
  PowerX:=1;                          { Начальное определене степени X }
  Sign:=-1;                           { Начальное определение знака }
  Add:=1;                             { Начальное определение слагаемого }
  while Abs(Add)>Eps do               { Цикл набора суммы ряда }
  Begin
    n:=n+1;                           { Переопрделение счетчика }
    PowerX:=PowerX*X;                 { Набор степени X }
    Sign:=-Sign;                      { Переопределение знака }
    Add:=Sign*PowerX/n;               { Переопределенте слагаемого }
    Sum:=Sum+Add                      { Набор суммы }
  End;
  WriteLn('Сумма S=',Sum:6:4);        { Вывод суммы ряда }
  WriteLn('Количество итераций n=',n);{ Вывод числа членов ряда }
END.