Цикл: найти сумму заданного ряда - Turbo Pascal

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

Вычислить сумму Условный оператор и операцию возведения в степень не использовать. Помогите найти сумму,пожалуйста

Решение задачи: «Цикл: найти сумму заданного ряда»

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

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

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

В данном коде на Turbo Pascal происходит следующее:

Объявляются три переменные: n, t и s. Переменная n является целым числом, переменная t также является целым числом, а переменная s является вещественным числом.
Выводится сообщение «n=», после чего считывается значение переменной n с помощью функции readln.
Переменная t инициализируется значением 1.
Запускается цикл for, который выполняется от 1 до n (т.е. от 1 до того значения, которое было считано на предыдущем шаге).
Внутри цикла переменная s инициализируется суммой произведения переменной t на 1/n и текущего значения переменной s.
Затем переменная t сбрасывается в отрицательное значение.
По завершении цикла выводится значение переменной s с точностью до 4 знаков после запятой с помощью функции writeln.