program CalculateFunction;
vax, y: Real;
begifor x := -1 to 8 step 0.7 dbegiy := power(x, 3) - 3 * power(x, 2) + 9writeln('For x = ', x:0:2, ', y = ', y:0:2)endend.
program CalculateFunction;
va
x, y: Real;
begi
for x := -1 to 8 step 0.7 d
begi
y := power(x, 3) - 3 * power(x, 2) + 9
writeln('For x = ', x:0:2, ', y = ', y:0:2)
end
end.