Дано натуральное число n. Вычислить 1/sin1+1/(sin1+sin2)+…1/(sin1+…sin n)- Pascal(Паскаль)

Uses
  CRT;

Var
  i, n: integer;
  s, sum: real;

begin
  write('N: ');
  readln(n);
  s := 0;
  sum := 0;
  for i := 1 to n do
  begin
    s := s + sin(i);
    sum := sum + (1 / s);
  end;
  write('SUM:=', sum);
  readkey

end.