' Soma dos divisores de um n£mero - N£meros amigos.
'

CLS


FOR n1 = 2 TO 20000
    sdn1 = 0
    FOR b = 2 TO n1 / 2
        IF n1 MOD b = 0 THEN sdn1 = sdn1 + b
    NEXT b
   
    sdn2 = 0
    FOR b = 2 TO sdn1 / 2
        IF sdn1 MOD b = 0 THEN sdn2 = sdn2 + b
    NEXT b
   
    IF (n1 = sdn2) THEN PRINT n1; " e "; sdn1; "s„o n£meros amigos"
NEXT n1

END