Решение сигмы - Turbo Pascal

Формулировка задачи:

Помогите сделать в паскале

Решение задачи: «Решение сигмы»

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

var s:real;
    n,k,z:integer;
begin
write('n=');
readln(n);
z:=-1;
s:=0;
for k:=1 to n do
 begin
  z:=-z;
  s:=s+z/(k*(k+1));
 end;
write('S=',s:0:3);
readln
end.

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

Создаётся переменная s типа real.
Создаются три переменные n, k и z типа integer.
Выводится сообщение «n=» и считывается значение переменной n.
Переменная z инициализируется значением -1.
Переменная s инициализируется значением 0.
Запускается цикл for, который выполняется n раз, начиная с k=1 и до k=n.
Внутри цикла переменная z инициализируется значением -z.
Переменная s увеличивается на z/(k*(k+1)).
По завершении цикла выводится значение переменной s с точностью до 3 знаков после запятой.
Программа завершается, ожидая ввода пользователя.