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