{{100, 500}, {461/5, 473}, {548/5, 452}, {1459/10, 437}, {974/5, 428}, {250, 425},
 {1526/5, 428}, {3541/10, 437}, {1952/5, 452}, {2039/5, 473}, {400, 500}}

range := {Min[Flatten[x]], Max[Flatten[x]]}
ListPlot[x, PlotRange -> {range, range}, AspectRatio -> 1]

ListPlot[x,
 PlotRange -> {range, range},
 AspectRatio -> 1,
 AxesOrigin -> range[[1]]
]