Maximize[{xy²-x²-y²-2x,x²+y²==8},{x,y}]