Imports System

Public Module Module1

    Public Sub Main()

        Dim n,i as integer

        Dim int(i) as integer

        For i = 0 to 4  

        n = Console.Readline()

        If n/2 =1

            Do

            int(i) = n

        Loop until n/2 = 1

    End if

        Console.Writeline(int)

    Next

    End Sub

End Module