Algoritmo para saber si un número es perfecto

numeroPerfecto.alg

ALGORITMO numeroPerfecto

var
    int:
        i, num, res, sumaDivisores

Inicio
    i = 1
    res = 0
    sumaDivisores = 0
    LEER num
    MIENTRAS i <= num-1 ENTONCES
        res = num MOD i
        SI res == 0 ENTONCES
            sumaDivisores = sumaDivisores+i
        FIN_SI
        i = i+1
    FIN_MIENTRAS
    SI sumaDivisores == num ENTONCES
        ESCRIBIR "El número es perfecto"
    SINO
        ESCRIBIR "El número no es perfecto"
    FIN_SI
Fin