Наречатать таблицу значения функции y=x*x*x на отрезке [-1;1] с шагом 0,1
var
x,y:real;
begin
x:=-1;
while x<=1 do</p>
y:=x*x*x;
writeln(y);
x:=x+0.1;
end;
end.