Дано натуральное число 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.