Ответ: 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.