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

Var x,y:integer;
begin
for x:=-18 to 12 do begin
y:=x*x*x-26*x;
writeln('x=',x,' y=',y);
end;
end.