Программа

CONST E=0.0; {Точность вычислений}
VAR PowerX:real; {Степень X и знак слагаемого}
    Sum:real; {Сумма}
    X:real; {Переменная}
    N:word; {Знаменатель}
BEGIN
  Sum:=0; {Начальное определение суммы}
  PowerX:=-1; {Начальное определение степени X и знака слагаемого}
  N:=0;   {Начальное определение знаменателя}
  Write('Введите X='); {Вывод приглашения ввести X}
  ReadLn(X); {Ввод X}
  repeat {Цикл набора суммы}
    N:=N+1; {Набор знаменателя}
    PowerX:=-PowerX*X;  {Переопределение слагаемого}
    Sum:=Sum+PowerX/N   {Набор суммы}
  until Abs(PowerX/N)<=E; {Выход из цикла при достижении точности}
  WriteLn('y=',Sum); {Вывод суммы}
END.