Var x, y : integer ;
Begin
x:=3;
y:=sqr(x)*x;
While x>=-3 do
Writeln ('x=', x:3,'y=',y);
x:=x-0,5;
End;
end.
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.