SoloCodigo

Asi seria el programa en VFP:

clear
i=2   && i=variable que ira desde 2 hasta mil
Do while i<=1000
   x=1  && x iniciara desde 1 hasta i-1 para sumar los numeros divisores que estan entre 1 e "i"
   s=0  && Suma es igual a cero
   Do while x<i
      if int(i/x)=(i/x)  && Pregunto si el valor estero de la divicion es igual a la divisin natural
                     && Esto es para saber si no hay residuos en la division                     
         s=s+x         && Si es divisor sumo "x" a la suma "s"
      endif
      x=x+1
   Enddo
   if s=i         && Si la suma me da igual a "i", es perfecto
      ?i
      wait
   endif
   i=i+1
Enddo   



Saludos