Sphere

ParametricPlot3D[{Sin@u Cos@v, Sin@u Sin@v, Cos@u}, {u, 0, 2 Pi}, {v,
  0, Pi}, PlotPoints -> 60, Mesh -> {30, 10},
 PlotStyle -> Directive[Green, Opacity[.8], Specularity[White, 20]],
 BoundaryStyle -> {Thin, Black}, Boxed -> False, Axes -> False]

ContourPlot3D[ x^2 + y^2 + z^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}, Boxed -> False, Axes -> False]