Module Module1
Sub Main()
Dim line As String, n As Integer, m As Integer, i As Integer, _
BIG As Integer, small As Integer, cnt As Integer = 0
line = Console.ReadLine()
While Not line Is Nothing
n = CInt(line)
m = CInt(Console.ReadLine())
cnt = cnt + 1
small = m
BIG = m
For i = 1 To n - 1
m = CInt(Console.ReadLine())
If m > BIG Then
BIG = m
ElseIf m < small Then
small = m
End If
Next
Console.WriteLine("Data set " & cnt & " has range = " & _
Math.Abs(BIG - small))
Console.WriteLine()
line = Console.ReadLine()
End While
End Sub
End Module