Como somar os dígitos de um número em Portugol usando o laço ENQUANTO - Solução para número inteiro de qualquer tamanho

// Como somar os dígitos de um número em Portugol
programa {
  funcao inicio() {
    inteiro numero, soma

    // inicia a soma como zero
    soma = 0

    // vamos pedir um número inteiro positivo
    escreva("Informe um número inteiro positivo: ")
    // lê o número informado
    leia(numero)

    // enquanto o número for diferente de 0
    enquanto (numero != 0) {
      // adiciona à soma o resultado da divisão do número por 10
      soma = soma + (numero % 10)
      // agora dividimos os número por 10 (divisão inteira) e continuamos
      numero = inteiro(numero / 10)
    }

    // e mostramos o resultado
    escreva("A soma dos dígitos é: ", soma)
  }
}