Дано натуральное число N. Вычислить:S=1/sin1+1/(sin1+sin2) +…….+1/(sin1+sin2+….+sinN)- Pascal(Паскаль)

uses crt;
var n,i:integer;
    s,a:real;
begin
clrscr;
writeln('вводите число');
readln(n);
s:=0;
a:=0;
for i:=1 to n do
 begin
  a:=a+sin(i); //сумма синусов
  s:=s+1/a;
 end;
write('s=',s:0:3);
end.