a=ContourPlot[x-(2-(1/4)(y^2)),{x,-3,3},{y,-3,3},ContourShading->False,ContourLabels->True,Contours->10]

b=RegionPlot[x≥y-1&&x≤1+Sqrt[1-(y^2)]&&y≥-1&&y≤1,{x,-3,3},{y,-3,3},PlotPoints->40]

c=ContourPlot[{x-(2-(1/4)(y^2))==0,x-(2-(1/4)(y^2))==-3,75},{x,-3,3},{y,-3,3},ContourShading->False,ContourLabels->True,Contours->10]

{d={-2,-1},e={2,0},f=Graphics[{PointSize[Medium],Thick,Orange,Point[{d}]}]};

g=Graphics[{PointSize[Medium],Thick,Black,Point[{e}]}];

Show[a,b,c,f,g]