【急】如何用mathematica求方程 cotx=1/x-x/2 最接近于0的两个正根?

【急】如何用mathematica求方程 cotx=1/x-x/2 最接近于0的两个正根?
用FindRoot[Cot[x]-1/x+x/2==0,{x,0}]求会报错,而且还要求两个
(Power::"infy" ((:)( ))
"Infinite expression (1/0.`) encountered.")
[Infinity]::"indet":"Indeterminate expression (((0.` [InvisibleSpace]
)) + *InterpretationBox["ComplexInfinity",DirectedInfinity[]] +
*InterpretationBox["ComplexInfinity",DirectedInfinity[]]) encountered."
FindRoot::"frnum":"Function ({Indeterminate}) is not a length (1)
list of numbers at ({x}) = ({0.`})."