Написать программу для решения циклической задачи

k=(sin(1+1)*sin(1+2)*sin(1+3)*sin(1+4)...*sin(1+5)...+n)
Пожалуйста,очень срочно.

program raf105;

var

 i,n: integer;

 k: real;

begin

 write('Введите N: ');

 readln(n);

 k:=1;

 for i:=1 to n do

   k:= k * sin(1+i);

 writeln('k = ',k);

end.