var n,i,j: integer;
var res,sum: double;
begin
writeln('Введите n');
readln(n);
i:=1;
j:=1;
res:=0;
while (i<=n) do
begin
sum:=0;
j:=1;
while (j<=i) do
begin
sum:=sum+sin(j);
j:=j+1;
end;
res:=res+(1/sum);
i:=i+1;
end;
writeln('ответ: ',res:5:2);
end.
