наречатать таблицу значения функции y=x*x*x на отрезке [-1;1] с шагом 0,1

Вопрос от посетителя:

наречатать таблицу значения функции y=x*x*x на отрезке [-1;1] с шагом 0,1

Илюха отвечает:

var

x,y:real;

begin

x:=-1;

while x<=1 do

begin

y:=x*x*x;

writeln(y);

x:=x+0.1;

end;

end.