Дано натуральное число n. Вычислить cos1/sin1*(cos1+cos2)/(sin1+sin2)*……*(cos1+cos2+……+cosN)/(sin1+sin2+…..+sinN)- Pascal(Паскаль)

uses crt;
var p,cs,sn:real;
    n,i:integer;
begin
clrscr;
write('n=');
readln(n);
p:=1;
cs:=0;
sn:=0;
for i:=1 to n do
 begin
  cs:=cs+cos(i);
  sn:=sn+sin(i);
  p:=p*cs/sn;
 end;
write('P=',p:0:4);
readln
end.