Паскаль! составьте алгоритм и программу для вычисления суммы s=18cos18x+15cos15x+12cos12x+3cos3x хотя бы только программу

Var
    x,s: real;

begin
    readln(x);
    s := 18 * cos(18 * x) + 15 * cos(15 * x) + 12 * cos(12 * x) + 3 * cos(3 * x);
    writeln(s);
end.

конечно хотелось бы сделать через цикл, но последовательность не понятная