Jared Carr Number 28, p.1049, MAT 329

Show[{
ContourPlot3D[{x==4-(y^2),z==2-y,x==0,y==0,z==0}, {x,-5,5},{y,-5,5},{z,-5,5},ContourStyle->Directive[Opacity[.2]]],
RegionPlot3D[
And[0<=x<=4-(y^2),
      0<=z<=2-y,
      0<=y<=2], {x,-5,5},{y,-5,5},{z,-5,5},AxesLabel->{x,y,z}]
}]