Imports System

Public Module Module1

    Public Sub Main()

        dim idx as integer

        dim i as integer

        idx = 49

        console.WriteLine("")

        while idx<75 

            idx = idx + 1

            Console.WriteLine(idx)

        end while

            i = 11

        console.WriteLine("")

        while i>1

        i = i -1

        console.writeline(idx)

        end while

        End Sub

End Module