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

program zz1;

var x, y:real; / /задаем две переменные вещественного типа

begin

x:=-4; / /задаем начальное число х

while x<=4 do / /организуем цикл пока, условие пишем такое - пока число х меньше либо равно четырем, делать

begin

y:=x*x*x-x*x+16*x-43; / /находим значение функции по формуле

x:=x+0.5; / /берем следующее число х

end;

write ('y=', y:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после точки

end.