Reduce[x^2 + y^2 == 5 && y >= 0, x]

Last[Solve[x^2 + y^2 == 5, y]] /. Rule -> Set

Plot[y, {x, -Sqrt[5], Sqrt[5]}, AxesLabel -> {"X", "Y"},
 PlotLegends -> {"!(*FormBox[SqrtBox[(5 - *SuperscriptBox[(x),
(2)])],
TraditionalForm])"}]

velocidades = D[y, x]

Plot[velocidades, {x, -Sqrt[5], Sqrt[5]}, AxesLabel -> {"X", "Y"},
 PlotLegends -> {"!(*FormBox[(-*FractionBox[(x), SqrtBox[(5 -
*SuperscriptBox[(x), (2)])]]),
TraditionalForm])"}]

xVelocidade = Range[0.01, Sqrt[5], 0.01];

yVelocidade = velocidades /. x -> # & /@ xVelocidade // N

listVelocidades = Transpose[{xVelocidade, yVelocidade}]

proporção = Abs[yVelocidade/xVelocidade];

Nearest[proporção, 2]

Position[proporção, First[%]]

velXvelY =
 Extract[listVelocidades,
  Position[proporção, First[Nearest[proporção, 2]]]]

test = velXvelY[[1, 2]]/velXvelY[[1, 1]] // Abs

sol[x_] := Solve[x^2 + y^2 == 5, y];
Y[x_] := y /. Last[sol[x]]
Plot[Y[x], {x, -Sqrt[5], Sqrt[5]}]
velocidades[x_] := D[Y[x], x]
Plot[Evaluate[velocidades[x]], {x, -Sqrt[5], Sqrt[5]}]

Solve[Abs[velocidades[x]] == 2 && -Sqrt[5] < x < Sqrt[5]]
(* {{x -> -2}, {x -> 2}} *)