RegionPlot3D[4 - x^2 - y^2 - z^2 > 0, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}]