SoloCodigo

PORFAS AYUDA CON ESTE ALGORITMO!
CHEQUENLO SI ESTA BIEN Y ME DICEN EN DONDE ESTA MAL PORFAS!
 Diseñar un algoritmo que me permita calcular los 5 primeros números perfecto (un número es perfecto, cuando la suma de sus divisores, sin incluirlo al número es exactamente el mismo número). El 6 es un número perfecto ya que sus divisores son 1,2 y 3 suman 6. La solución hace que el computador tome un buen tiempo para completar los 5 números.

CLS

Num = 5

C = 0

DO WHILE C < 5

        Num = Num + 1

        Suma = 0

               FOR i = 1 TO INT(Num / 2)

                       IF Num MOD i = 0 THEN

                              Suma = Suma + i

                       END IF

               NEXT

               IF Num = Suma THEN

                       C = C + 1

                       PRINT "El Numero", Num

               END IF

LOOP