Numero perfeito em VisuAlg

[victorh.marques]

Estou tendo dificuldade em resolver este exercicio:

-Escrever um algoritmo que gera e escreve os 4 primeiros numeros perfeitos. Um numero perfeito é aquele que é igual á soma dos seus divisores.

Ex: 6 = 1+2+3. 28= 1+2+4+7+14.

eu consegui fazer muito pouco desse exercicio

var
 num: inteiro
inicio
// Seção de Comandos
   escreval ("Verifique se um numero é perfeito !")
   repita
         escreval ("Informe o numero : ")
         leia (num)
              se (num < 6) e (num <> 0) então
                 escreval ("Este numero não é perfeito !")
              senao

              fimse
   ate num = 0
   fimrepita
fimalgoritmo

eu não estou conseguindo escrever uma logica que gere um numero perfeito.

se alguem puder me ajudar vai ajudar em outros exercicios semelhantes que eu estou com duvida tbem !

obrigado

[Heitor.V]

Cara eu sugiro a leitura do site: http://pt.wikipedia.org/wiki/N%C3%BAmero_perfeito.

Nota que lá tem uma formula que gera números perfeitos. Com isso fica mais fácil você desenvolver seu código. Se mesmo assim não conseguir, poste seu novo código e sua duvida.

Espero ter ajudado.