Short as possible with manual selecting:(Coordinates with Google Maps)
GeoGraphics[
{AbsoluteThickness[2], GeoPath[{GeoPosition[{31.056762033689704, 32.634629144047196}],
GeoPosition[{29.931398440792975, 32.56192925036115}]}, "Geodesic"]}]
GeoDistance[{31.056762033689704,
32.634629144047196}, {29.931398440792975, 32.56192925036115},UnitSystem -> "Metric"]
(*124.954km*)