Como testar se um número é perfeito usando Portugol Webstudio - Desafio de Programação Resolvido em Portugol

Informe um número inteiro: 6
O número informado é um número perfeito.

// Como testar se um número é perfeito em Portugol
programa {
  funcao inicio() {
    // Variáveis usadas na resolução do problema
    inteiro numero // número informado pelo usuário
    inteiro soma = 0 // vai guardar a soma dos dígitos
  
    // vamos pedir para o usuário informar o valor inteiro
    escreva("Informe um número inteiro: ")
    // lê o número informado
    leia(numero)

    // um laço que começa em 1 e até o número informado - 1
    para (inteiro i = 1; i < numero; i++) {
      // o número é divisível pelo valor de i?
      se (numero % i == 0) {
        soma = soma + i // aumenta a soma
      }
    }

    // a soma é igual ao número informado?
    se (soma == numero) {
      escreva("O número informado é um número perfeito.")
    }
    senao {
      escreva("O número informado não é um número perfeito.")
    }
  }
}