Imports System

Public Module Module1

    Public Sub Main()

        console.WriteLine(ToBinary(console.ReadLine()))

    End Sub

Private Function ToBinary(dec As Integer) As String

    Dim bin As Integer

    Dim output As String

    While dec <> 0

        If dec Mod 2 = 0 Then

            bin = 0

        Else

            bin = 1

        End If

        dec = dec \ 2

        output = Convert.ToString(bin) & output

    End While

    If output Is Nothing Then

        Return "0"

    Else

        Return output

    End If

End Function

End Module