funcao binario (int n): string
    string s <- ""
    enquanto (n > 0):
        s <- concatena (string(n % 2), s)
        n <- n / 2
    return s

leia n
mostre binario(n)