Вычислить значение выражения - Pascal (80370)

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

Приветствую, не могу решить очень простое задание: Дано натуральное число n. Создать программу вычисления значение выражения: Сделал вот такой код, но он решает совсем другое выражение...

                    Листинг программы
                
 
                        
                          
                    
var s: real;
    i, n: integer;
begin
  repeat
    write('n > 0;  n = ');
    readln(n)
  until n > 0;
  s := 0;
  for i := 1 to n do s := s + 1/sin(n);
  write('s = ', s:0:15);
  readln
end.

Решение задачи: «Вычислить значение выражения»

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

var s,s1: real;
    i, n: integer;
begin
repeat
 write('n > 0;  n = ');
 readln(n)
until n > 0;
s := 0;
s1:=0;
for i := 1 to n do
 begin
  s1:=s1+sin(i);
  s:=s+1/s1;
 end;
write('s = ', s:0:4);
end.

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

Объявляются переменные:
- s типа real
- s1 типа real
- i типа integer
- n типа integer
Начинается цикл:
- Повторять:
  - Вывести на экран n > 0; n =
  - Считать введенное значение и сохранить в переменную n
- Пока n не больше 0
Задается начальное значение s и s1, равное 0
Начинается цикл от 1 до n:
- Увеличивать s1 на значение синуса от i
- Увеличивать s на значение 1/s1
Выводится результат вычислений s с точностью до 4 знаков после запятой.