Циклы - Pascal ABC

Требуется помощь. "Дано натуральное число n. Вычислить

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

s:=0;//сумма синусов
sm:=0;//сумма ряда
for i:=1 to n do
 begin
  s:=s+sin(i);
  sm:=sm+1/s;
 end;

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

Переменная n представляет собой количество значений, для которых выполняется цикл.
Переменная s инициализируется значением 0. Она будет использоваться для хранения суммы синусов.
Переменная sm инициализируется значением 0. Она будет использоваться для хранения суммы ряда.
Запускается цикл, который будет выполняться от 1 до n.
Внутри цикла переменная s увеличивается на значение sin(i), где i - это текущее значение счетчика цикла. Это значение будет добавлено к сумме синусов s.
Переменная sm увеличивается на 1/s, где s - это текущее значение суммы синусов. Это значение будет добавлено к сумме ряда sm.
После завершения цикла, значение переменной s будет содержать сумму всех синусов, а значение переменной sm будет содержать сумму всех значений ряда, деленную на сумму синусов.