// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var x:=-4.0;
while x<=4 do begin<br> Writeln(x:4:1,x*x*x-x*x+16*x-43:10:3);
x+=0.5
end
end.
Результат:
-4.0 -187.000
-3.5 -154.125
-3.0 -127.000
-2.5 -104.875
-2.0 -87.000
-1.5 -72.625
-1.0 -61.000
-0.5 -51.375
0.0 -43.000
0.5 -35.125
1.0 -27.000
1.5 -17.875
2.0 -7.000
2.5 6.375
3.0 23.000
3.5 43.625
4.0 69.000