Imports System

Public Module Module1

    Public Sub Main()

        Dim n as integer

        Do

            Do

            n = console.readline()

        loop until n<=5

    loop until n >=1

        console.WriteLine(n)

    End Sub

End Module