Drawing Maps in Mathematica

(*Use the definitions of area1, area2, and area3 provided in the blog post. Below is the basic map.*)
Show[
 GeoGraphics[{EdgeForm[Black], FaceForm[Green], Polygon[area1]
   }],
 GeoGraphics[{EdgeForm[Black], FaceForm[Red], Polygon[area2]
   }],
 GeoGraphics[{EdgeForm[Black], FaceForm[Blue], Polygon[area3]
   }]
 ]

(*This is the flag map. If you use the With[] and/or Map[] command, you can add many more countries with less effort.*)
Show[
 GeoGraphics[{
      GeoStyling[{"Image", area1["Flag"]}],
      area1["Polygon"]
      },
   GeoBackground -> GeoStyling["Satellite"]],
 GeoGraphics[{
      GeoStyling[{"Image", area2["Flag"]}],
      area2["Polygon"]
      },
   GeoBackground -> GeoStyling["Satellite"]],
 GeoGraphics[{
      GeoStyling[{"Image", area3["Flag"]}],
      area3["Polygon"]
      },
   GeoBackground -> GeoStyling["Satellite"]]
 ]

(*The map of our glorious leader. img1 is a picture of Mr. President and img2 is a picture of a wall. Replace them with whatever you'd like.*)
Show[
 GeoGraphics[{
      GeoStyling[{"Image", area1["Flag"]}],
      area1["Polygon"]
      },
   GeoBackground -> GeoStyling["Satellite"]],
 GeoGraphics[{
      GeoStyling[{"Image", area2["Flag"]}],
      area2["Polygon"]
      },
   GeoBackground -> GeoStyling["Satellite"]],
 GeoGraphics[{
      GeoStyling[{"Image", area3["Flag"]}],
      area3["Polygon"]
      },
   GeoBackground -> GeoStyling["Satellite"]]
 ]