Вычислить и напечатать значение функции y=x^3-3x^2+9 для x от -1 до 8 с шагом 0,7 написать программу в Паскале.

Предыдущий
вопрос Следующий
вопрос

program CalculateFunction;

var
x, y: Real;

begin
for x := -1 to 8 step 0.7 do
begin
y := power(x, 3) - 3 * power(x, 2) + 9;
writeln('For x = ', x:0:2, ', y = ', y:0:2);
end;
end.