program summa;

var

i, n:integer;

s, k:real;

begin

 writeln('введите число n=');

 read(n);

 s:= 0;

 k := 0;

 for i := 1 to n do

 begin

   k:= k + sin(i);

   s:= s + 1/k;

 end;

 writeln('Сумма S= ',s:0:2);

 readln;

end.