Составить программу на языке pascal y=ax^3 x принадлежит [-3; 4]

Так?

//Pascal
var
  a, h, x, y: real;
begin
  write('a = ');
  readln(a);
  write('h(шаг) = ');
  readln(h);
  writeln('x':5,'y':8);
  x := -3;
  while x <= 4 do
  begin
    y := a * (x * x * x);
    writeln(x:7:2, y:10:2);
    x := x + h;
  end;
end.