Вывести на экран значение функции f(x)=x^3-26x на интервале [-18;12] с шагом

program zz1;
var x,f:integer; //заводим переменные
begin
x:=-18; //задаем изначальное значение для х
while xlt;=12 do //организуем цикл, который переберет все числа от -18 до 12 с шагом 3
begin
f:=x*x*x-26*x; //вычисляем значение функции f(x)=x^3-26x
writeln(для х=,x:4, f(x)=,f:5); //выводим на экран число х и полученное значение функции в столбец
x:=x+3; //увеличиваем х на шаг
end;
end.