Нужно составить две программы по вычислению суммы и произведения.
Сумма(i=1 ДО 10)((sin(xi)+cos(yi))^2
Произведение(i=1 до n)((sin(PI/3+xi))/(2i)).
Помогите пожалуйста, а то совсем задолбался.

s := 0;
for i := 1 to 10 do
 s := s + sqr(sin(x[i]) + cos(y[i]));
p := 1;
for i := 1 to n do
 p := p * sin(pi/3+x[i])/(2*i);

// если n=10, то можно в один цикл сделать.