Дано натуральное число N. Вычислить: (1/sin1)*(1/sin1+sin2)*.*(1/sin1+sin2+.+sinN)

var 
s, ssin: real; 
i, n: integer; 
 
begin readln(n);ssin := 0;s := 1; 
for i := 1 to n do 
begin ssin := ssin + sin(i);s := s * 1 / ssin; 
end; 
writeln(s); 
end.

var n,i,j:integer;
    s,t:real;
begin
write('n=');
readln(n);
s:=1;
i:=0;
while i<n do
 begin
  i:=i+1;
  j:=0;
  t:=0;
  while j<i do
   begin
    j:=j+1;
    t:=t+sin(j);
   end;
  s:=s*1/t;
 end;
write('S=',s:0:5);
readln
end.

  s:=s/t;

var n, i: integer;
    p, t: real;
begin
  write('n = ');
  readln(n);
  p := 1;
  i := 0;
  t := 0;
  while i < n do
    begin
      inc(i);
      t := t + sin(i);
      p := p / t
    end;
  write('P = ',p:0:5);
  readln
end.

var n, i: integer;
    p, t: real;
begin
  write('n = ');
  readln(n);
  t := 0;
  p := 1;
  for i := 1 to n do
    begin
      t := t + sin(i);
      p := p / t
    end;
  write('P = ', p:0:5);
  readln
end.

var n, i: integer;
    p, t: real;
begin
  write('n = ');
  readln(n);
  t := 1 / sin(1);
  p := t;
  for i := 2 to n do
    begin
      t := t + sin(i);
      p := p * t
    end;
  write('P = ', p:0:5);
  readln
end.