A1 = {RGBColor[1, 0, 0],
  Polygon[{{0, 0}, {30, 0}, {30, 3}, {0, 3}}]}; A2 = {RGBColor[1, 1,
   1], Polygon[{{0, 3}, {30, 3}, {30, 6}, {0, 6}}]}; A3 = {RGBColor[1,
    0, 0], Polygon[{{0, 6}, {30, 6}, {30, 9}, {0,
     9}}]}; A4 = {RGBColor[1, 1, 1],
  Polygon[{{0, 9}, {30, 9}, {30, 12}, {0, 12}}]}; A5 = {RGBColor[1, 0,
    0], Polygon[{{0, 12}, {30, 12}, {30, 15}, {0, 15}}]};
A6 = {RGBColor[0, 0, 1],
  Polygon[{{0, 0}, {13, 7.5}, {0, 15}}]}; A7 = {RGBColor[1, 1, 1],
  Polygon[{{2.25, 4.75}, {4, 6}, {5.75, 4.75}, {5, 7}, {6.33,
     8.5}, {4.67, 8.5}, {4, 10.75}, {3.33, 8.5}, {1.67, 8.5}, {3,
     7}}]}; A8 = {RGBColor[1, 1, 0],
  Polygon[{{-.5, 0}, {-.5, -.5}, {30.5, -.5}, {30.5, 15.5}, {-.5,
     15.5}, {-.5, 0}, {0, 0}, {0, 15}, {30, 15}, {30, 0}}]};
S1 = PuertoRicoFlag =
  Show[Graphics[{A1, A2, A3, A4, A5, A6, A7, A8}], AspectRatio -> .5]