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

program zz1;

var x, f:integer; / /заводим переменные

begin

x:=-18; / /задаем начальное значение для х

while x<=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.