Clear["Global`*"]r = RandomReal[]Show[Graphics3D[{Red,PointSize[0.02],Point[Table[With[{\[Theta] = RandomReal[{0,\[Pi]}],\[Phi] = RandomReal[{0,2 \[Pi]}]},{r Sin[\[Theta]] Cos[\[Phi]],r Sin[\[Theta]] ...