Dim x(9)
x = {0.654682, 0.409382, 0.891663, 0.716629, 0.477721, 0.925092, 0.624291, 0.211332, 0.293786, 0.839186}
Dim y(9)
y = {0.925557, 0.619391, 0.888594, 0.996200, 0.946355, 0.818220, 0.142924, 0.221507, 0.691701, 0.728260}

minDist = 1^30
For i = 0 To 8
	For j = i+1 To 9
		dist = (x[i] - x[j])^2 + (y[i] - y[j])^2
		If dist < minDist Then minDist = dist : minDisti = i : minDistj = j
	Next j
Next i
Print "El par más cercano es "; minDisti; " y "; minDistj; " a una distancia de "; Sqr(minDist)
End