Maximize[{x²-xy+y²-x, x²+y²<=1}, {x, y}]