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