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.

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