var x,y:real;begin x:=-1; while x<=1 do begin Writeln('x=',x:4:1,', y=',x*x*x:9:6); x:=x+0.1 endend.
Результат выполнения программы:x=-1.0, y=-1.000000x=-0.9, y=-0.729000x=-0.8, y=-0.512000x=-0.7, y=-0.343000x=-0.6, y=-0.216000x=-0.5, y=-0.125000x=-0.4, y=-0.064000x=-0.3, y=-0.027000x=-0.2, y=-0.008000x=-0.1, y=-0.001000x= 0.0, y= 0.000000x= 0.1, y= 0.001000x= 0.2, y= 0.008000x= 0.3, y= 0.027000x= 0.4, y= 0.064000x= 0.5, y= 0.125000x= 0.6, y= 0.216000x= 0.7, y= 0.343000x= 0.8, y= 0.512000x= 0.9, y= 0.729000x= 1.0, y= 1.000000