Дано натуральное число N. Вычислить: cos1/sin1 * (cos1+cos2)/(sin1+sin2) * ... * (cos1+cos2+...cosN)/(sin1+sin2+...+sinN). (программа Паскаль)

Uses crt;
Var n,i:integer; x,y,z:real;
Begin clrscr;
  Write('vvedite n=');
  ReadLn(n);
  x:=0;
  y:=0;
  z:=0;
  for i:=1 to n do
    Begin
      y:=y+sin(i);
      z:=z+cos(i);
      x:=x+cos(i)/(y*z);
    End;
  Write('x=',x:4:8);
  ReadLn;
End.