Also you can control the geographical area of the shown map using the GeoRange option as in:
GeoGraphics[{EdgeForm[Black], FaceForm[Red],
Polygon[Entity["Country", "Germany"]],
Polygon[Entity["Country", "Turkey"]]},
GeoRange -> Quantity[2000, "km"]]
And also recenter the graph using GeoCenter as in:
GeoGraphics[{EdgeForm[Black], FaceForm[Red],
Polygon[Entity["Country", "Germany"]],
Polygon[Entity["Country", "Turkey"]]},
GeoRange -> Quantity[2000, "km"],
GeoCenter ->
Entity["City", {"Bonn", "NorthRhineWestphalia", "Germany"}]]
or
GeoGraphics[{EdgeForm[Black], FaceForm[Red],
Polygon[Entity["Country", "Germany"]],
Polygon[Entity["Country", "Turkey"]]},
GeoRange -> Quantity[2500, "km"], GeoCenter -> GeoPosition[{45, 0}]]