Конечно, я помогу вам составить алгоритм и программу на языке Паскаль для вычисления суммы S = 18cos(18x) + 15cos(15x) + 12cos(12x) + 3cos(3x). Давайте сначала разберем, как можно составить алгоритм, а затем перейдем к коду.

1. Объявить переменные:
   • x - переменная, для которой будет вычисляться сумма;
   • S - переменная для хранения результата суммы;
   • pi - константа для перевода градусов в радианы (если необходимо);
2. Ввод значения x.
3. Перевести x в радианы, если он задан в градусах (x_rad = x * pi / 180).
4. Вычислить каждое слагаемое:
   • Вычислить 18cos(18 * x_rad);
   • Вычислить 15cos(15 * x_rad);
   • Вычислить 12cos(12 * x_rad);
   • Вычислить 3cos(3 * x_rad);
5. Сложить все слагаемые и сохранить в переменной S.
6. Вывести результат S.

Теперь давайте напишем программу на Паскале, которая реализует этот алгоритм:

program SumCosines;

uses crt, math;

var
    x, S: real;

begin
    clrscr;  { Очистка экрана }
    write('Введите значение x (в градусах): ');
    readln(x);
    
    { Переводим x в радианы }
    x := x * Pi / 180;

    { Вычисляем сумму S }
    S := 18 * cos(18 * x) + 15 * cos(15 * x) + 12 * cos(12 * x) + 3 * cos(3 * x);

    { Выводим результат }
    writeln('Сумма S = ', S:0:4);
    readln;
end.

В этой программе мы используем библиотеку math для работы с тригонометрическими функциями. Обратите внимание, что при вводе значения x пользователь вводит его в градусах, а затем мы переводим его в радианы для корректного вычисления косинусов.

Если у вас есть дополнительные вопросы или нужно что-то уточнить, не стесняйтесь спрашивать!