Como converter decimal em binário em Portugol usando o laço ENQUANTO - Desafio de Programação Resolvido em Portugol

Informe um número decimal: 38
A representação binária é 100110

// Como converter de decimal para binário em Portugol
programa {
  inclua biblioteca Tipos --> tp
  
  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro decimal, decimal_temp, temp
    cadeia binario

    // vamos ler o número decimal
    escreva("Informe um número decimal: ")
    leia(decimal)
    decimal_temp = decimal // para mostrar o resultado no final
    binario = "" // vai guardar o resultado

    // laço while repetirá enquanto decimal for maior ou igual a 2
    enquanto (decimal >= 2) {
      temp = decimal % 2
      binario = tp.inteiro_para_cadeia(temp, 10) + binario
      decimal = inteiro(decimal / 2)
    }

    binario = tp.inteiro_para_cadeia(decimal, 10) + binario // insere o dígito 1 restante
    escreva("A representação binária é ", binario)    
  }
}