Вычислите значение функции y=x^3-x^2+16x-43 для x изменяющегося в спектре от-4 до

program zz1;
var x,y:real; //задаем две переменные вещественного типа
begin
x:=-4; //задаем изначальное число х
while xlt;=4 do //организуем цикл пока, условие пишем такое - пока число х меньше или одинаково четырем, делать
begin
y:=x*x*x-x*x+16*x-43; //обретаем значение функции по формуле
x:=x+0.5; //берем последующее число х
end;
write(y=,y:5:2); //выводим ответ в формате 5 символов для всего числа и два знака после точки
end.