Составить программу с использованием операторов цикла - вычислить произведение - Free Pascal

var
  n,i,j:integer;
  c,z,p:real;
begin
  repeat
    write('n=');
    readln(n);
  until n>0;  
  p:=1;
  for i:=1 to n do begin 
    c:=0;z:=0;
    for j:=1 to i do begin
      c:=c+cos(j);
      z:=z+sin(j);
    end;
    if z<>0 then p:=p*c/z else begin
                                writeln('undefined');
                                exit;
                               end;
  end;
  writeln(p:0:6);
  readln;
end.