Протабулировать (найти значение функции) y=x³ на отрезке [3; -3] с шагом 0,5. составить программу по блок-схеме ​

var x, y : integer ;

begin

x: =3;

y: =sqr(x)*x;

while x> =-3 do

begin

writeln ('x=', x: 3,'y=',y);

x: =x-0,5;

y: =sqr(x)*x;

end;

end.

writeln('a[',i,']=',a[i]);

readln;

end.

(12-3): (4+5)=1

1х2х3-4+5-6=1

(12: 3+4+5): (6+7)=1

(1+2-3+4+5+6-7): 8=1