uses crt;
var x,y:real;
begin clrscr;
      x:=-4;
      writeln ('  x     y');
      repeat
       x:=x+0.5;
       y:=x*sqr(x)-sqr(x)+16*x-43;
       writeln (x:4:1, y:8:2);
      until x=4;
      readkey;
end.