Imports System

Public Module Module1

    Public Sub Main()

        Dim numbers(4) As Integer

        dim x as integer

        dim t as integer

        dim i as integer

        dim q as integer

        dim n as integer

        dim temp as integer

        n = 3

        Console.WriteLine("input 5 numbers")

        for x = 0 to 4

        numbers(X) = console.ReadLine()

    next

    for t = 0 to 3

    for q = 0 to n

    if numbers(q) > numbers(q+1)

        temp = numbers(q)

        numbers(q)= numbers(Q+1)

        temp= numbers(q+1)

        end if

next

n= n-1

next

for i = 0 to 4

console.Write(numbers(i)& ",")

next

    End Sub

End Module