Вычислить сумму ряда, цикл while - Pascal

Формулировка задачи:

Добрый вечер! Задание (цикл while): Дано натуральное число n. Вычислить cos1*sin1+(cos1+sin2)(cos1+sin2)+…+(cos1+…+sin n)(sin1+…sin n). Я что то даже не могу выявить закономерность и понять как менять значения на каждом цикле... Если кто подскажет и привет часть когда буду признателен!

Решение задачи: «Вычислить сумму ряда, цикл while»

Листинг программы

s:=0;
for i:=1 to n do
s:=s+sqr(cos(1)+sin(i));

Объяснение кода листинга программы

В начале программы объявляется переменная s и инициализируется значением 0.
Затем происходит цикл от 1 до n, где n - это некоторое значение, которое должно быть задано в качестве условия для остановки цикла.
Внутри цикла к переменной s прибавляется значение выражения sqr(cos(1)+sin(i)), где sqr - это функция возведения в квадрат, cos(1) - это функция косинуса со значением 1 радиана, sin(i) - это функция синуса со значением i радиан.
После завершения цикла значение переменной s будет содержать сумму всех вычисленных значений выражения.