proc Bubble (var a : array 1 .. * of real, n : int)
    var hold : real
    for i : 1 .. n
        for k : 1 .. n - 1
            if a (k) > a (k + 1) then
                hold := a (k)
                a (k) := a (k + 1)
                a (k + 1) := hold
            end if
        end for
    end for
end Bubble
function Distance (x1, y1, x2, y2 : real) : real
    result ((x1 - x2) ** 2 + (y1 - y2) ** 2) ** 0.5
end Distance

var numCases : int
var numWithSat : int
var numStations : int

get numCases
get numWithSat
get numStations

var stationListx : array 1 .. numStations of int
var stationListy : array 1 .. numStations of int
var stationListd : array 1 .. numStations, 1 .. numStations of real
var stationListassc : array 1 .. numStations, 1 .. numStations of int

var satList : array 1 .. numWithSat + 1 of real
for i : 1 .. numWithSat + 1
    satList (i) := 100005
end for

for i : 1 .. numStations
    get stationListx (i)
    get stationListy (i)
end for


for i : 1 .. numStations
    for k : 1 .. numStations
        stationListd (i, k) := Distance (stationListx (i), stationListy (i), stationListx (k), stationListy (k))
    end for
end for

for i : 1 .. numStations
    for k : 1 .. numStations
        if (i not= k) then
            Bubble (satList, numWithSat + 1)
            for j : 1 .. numWithSat + 1
                if (stationListd (i, k) <= satList (numWithSat + 1)) then
                    satList (numWithSat + 1) := stationListd (i, k)
                end if
            end for
        end if
    end for
end for

Bubble (satList, numWithSat + 1)

for i : 1 .. numWithSat + 1
    put satList (i):2:2
end for