Вычислить сумму ряда - Free Pascal (385)

Составьте программу, которая находить значение этого выражения: -1+1/2-1/3+1/4- ...+1/n

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

z:=1;
s:=0;
for i:=1 to n do
 begin
  z:=-z;
  s:=s+z/i;
 end;

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

Переменная z инициализируется значением 1.
Переменная s инициализируется значением 0.
В цикле от 1 до n выполняются следующие действия:
- Значение переменной z инвертируется (1 становится -1, -1 становится 1 и т.д.).
- Значение переменной s увеличивается на значение переменной z, деленное на текущее значение цикла i.
После выполнения цикла, значение переменной s будет содержать сумму ряда.