FUNCTION amicable(nr)
    LET suma = 1
    FOR d = 2 TO SQR(nr)
        IF REMAINDER(nr, d) = 0 THEN
           LET suma = suma + d + nr / d
        END IF
    NEXT d
    LET amicable = suma
END FUNCTION

PRINT "The pairs of amicable numbers below 20,000 are :"
PRINT

LET size = 18500
FOR n = 1 TO size
    LET m = amicable(n)
    IF m > n AND amicable(m) = n THEN PRINT USING "##### and #####": n, m
NEXT n
END