<<Optimization`UnconstrainedProblems`

Show@Last@Echo[FindRootPlot[{x^2 +y^2-3,x+Sin[y]},{{x,1},{y,0}}],"Root: ",First]

Show@Last@Echo[FindRootPlot[{x^2 - 3 y,Sin[x^2 + y^2]},{{x,1},{y,1}}],"Root: ",First]