Minimize[{x²+y²,x³+y³-3xy==0},{x,y}]