Разработать программу в Object Pascal для вычисления

Разработать программу в Object Pascal для вычисления. S = cosx + cos2x + cos3x + cosnx

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

Ввод х.
Ввод n.
s:=0;
for i:=1 to n do
s:=s+cos(i*x);

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

Ввод переменной x.
Ввод переменной n.
Инициализация переменной s значением 0.
Цикл for для вычисления суммы от i=1 до n.
Вычисление значения переменной i умноженной на значение переменной x.
Прибавление значения переменной i к переменной s.
Выполнение цикла до тех пор, пока значение переменной i меньше значения переменной n.
Вычисление значения функции cos от значения переменной i.
Получение результата вычисления функции cos и сохранение его в переменной s.
Увеличение значения переменной i на единицу.
Повторение шагов 5-10 до тех пор, пока значение переменной i меньше значения переменной n.
Вывод значения переменной s.