Plot[{p^2 - 4 q >= 0, p^2 + 2 Abs[q] <= 2 q + 4}]