Print("Please enter count")
Dim input As String = ReadFromUser()
Dim count As Integer = ConvertToInteger(input)
Dim numbers(count - 1) As Integer
For i = 0 To count - 1
    input = ReadFromUser()
    Dim n As Integer = ConvertToInteger(input)
    numbers(i) = n
Next
Sort(numbers)