var x,y:real; begin x:= -10; while x<5 do begin y:=x*x; writeln(x:2:4,' ',y:2:4); x:=x+0.3; end; end.