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

Informe um número binário: 1100
A representação decimal do valor binário 1100 é 12

// Converter binário em decimal em Portugol
programa {
  // inclui a biblioteca Matematica
  inclua biblioteca Matematica --> mat
  // vamos incluir a biblioteca Texto
  inclua biblioteca Texto --> texto
  // vamos incluir a biblioteca Tipos
  inclua biblioteca Tipos --> tp

  funcao inicio() {
    // variáveis usadas na resolução do problema
    cadeia binario
    inteiro decimal, temp, expoente

    // vamos ler o número binário (como um texto)
    escreva("Informe um número binário: ")
    leia(binario)

    // guarda a representação decimal
    decimal = 0

    // inicializa o expoente
    expoente = texto.numero_caracteres(binario) - 1

    // vamos percorrer todos os dígitos do número binário começando do início
    para (inteiro i = 0; i < texto.numero_caracteres(binario); i++) {
    // converte o caractere atual para inteiro
      temp = tp.cadeia_para_inteiro(texto.obter_caracter(binario, i), 10)
      decimal = decimal + (temp * 
        tp.real_para_inteiro(mat.potencia(2.0, expoente)))

      // reduz o expoente em 1
      expoente = expoente - 1
    }

    // vamos mostrar o resultado
    escreva("O valor decimal é: ", decimal)
  }
}