Imports System

Public Module Module1

    Public Sub main()

​

        Console.Write("Enter number: ")

        Dim a As Integer = Console.ReadLine()

        x(a)

​

        Console.ReadLine()

​

    End Sub

​

    Sub x(n As Integer)

​

        If n = 0 Or n = 1 Then

            Console.Write(n)

        Else

            x(n / 2)

            Console.Write(n Mod 2)

        End If

​

    End Sub

​

End Module