Дано натуральное число n. вычислить, используя while и repeat: 1/sin1+1/(sin1+sin2)++1/(sin1+sin2+sinn)

Begin
    var n := ReadlnInteger('n =');
    var i := 1;
    var s1,s2:real;
    while i <= n do
    begin
        s1 += Sin(i);
        s2 += 1/s1;
        i +=1;
   end;
   Write('S = ',s2)
end.