positions=EntityValue[{-15.707663,-47.911551},{-25.363882,-57.717899},{-34.921971,-56.046862}]
In[]:=
GeoGraphics[{GeoPath[positions],Red,Point/@positions}GeoRange"World",GeoCenter40GeoBackground"StreetMapNoLabels"]
Out[]=
GeoGraphics[{GeoRangeGeoPath[EntityValue[capitals,Position]],GeoRange,GeoRangeEntityValue[Point[capitals],Point[Position]]}World,GeoCenter40GeoBackgroundStreetMapNoLabels]
