Вам необходимо в каждой итерации цикла изменять три числа: числитель дроби, знаменатель дроби и всё произведение. То есть:

Код
p := 1;
su := 0;
sd := 0;
for i:=1 to n do
begin
    su := su + cos(i);
    sd := sd + sin(i);
    s := s*su/sd;
end