Imports System

Public Module Module1

    Public Sub Main()

        Dim Inputs(19) as Decimal

        Dim AmountofNumbers as Integer

        Dim AmountofNumbersCompared

        Dim Q as Integer = 0

        Dim W as Integer = 0

        For Count = 0 To 19

            Inputs(Count) = Console.ReadLine()

            If Inputs(Count) = -1 Then

                Inputs(Count) = 0

                Exit For

            End If

            AmountofNumbers = AmountofNumbers + 1

        Next

        AmountofNumbersCompared = AmountofNumbers

        Console.WriteLine(AmountofNumbers)

        For Count2 = 0 To AmountofNumbers Step 1

            For Count = 0 To AmountofNumbersCompared - 2 Step 1

        'For a list of 5 numbers, Inputs(0) to Inputs(4), AmountofNumbers is 5, AmountofNumbers - 1 represents the highest index of the array used, AmountofNumbers - 2 represents the index it must compare up to.

        'In this case of 5, 0/1, 1/2, 2/3, 3/4 are compared for 4 comparisons of Count and Count + 1, so Count = 0, 1, 2, 3 

                If Inputs(Count) > Inputs(Count + 1) Then

                    Inputs(Count) = Inputs(Count) + Inputs(Count + 1)

                    Inputs(Count + 1) = Inputs(Count) - Inputs(Count + 1)

                    Inputs(Count) = Inputs(Count) - Inputs(Count + 1)

                End If

            Next

            AmountofNumbersCompared = AmountofNumbersCompared - 1

        ' The highest value will be correct after one set of comparisons, so fewer numbers need to be compared every loop.

        Next

        For Count = 0 To AmountofNumbers-1 Step 1

            Console.WriteLine(Inputs(Count))

        Next

    End Sub

End Module