Написать программу, которая вычисляет значение у=x^3-x^2+16x-43 для х, изменяющегося в диапазоне от -4 до 4 включительно с шагом 0,5 — Pascal(Паскаль)

uses crt;
var x,y:real;
begin
writeln('x          y');
x:=-4;
while x<=4 do
begin
y:=x*x*x-x*x+16*x-43;
writeln(x:2:2,y:9:2);
x:=x+0.5;
end;
readln;
end.