Найти сумму первых N членов знакочередующегося ряда - Turbo Pascal

Найти сумму первых N членов знакочередующегося ряда: S = 1 – X/2 + X2/3 – X3/4 + …, где |X|<1

Листинг программы

  p:=1; s:=1;
  for i:=2 to n do begin
    p:=-p*x; s:=s+p/i;
    WriteLn(i,' ',p/i);
  end;
  WriteLn('S=',s);

Объяснение кода листинга программы

В данном коде выполняется вычисление суммы первых N членов знакочередующегося ряда.

Переменная p инициализируется значением 1.
Переменная s инициализируется значением 1.
Запускается цикл от i=2 до n.
В каждой итерации цикла значение переменной p обновляется как -p*x.
В каждой итерации цикла значение переменной s обновляется как сумма p/i и текущего значения s.
В каждой итерации цикла выводится значение i и значение p/i.
После завершения цикла выводится значение переменной s с подписью S=.