زوج های متحابه

این برنامه جواب سوال مسابقات کامپیوتر کشوری مرحله هفتم می باشد
این زوج ها اعدادی هستند که مجموع مقسوم علیه یکی ( غیر از خودش ) با دیگری برابر است
مثلا مجموع مقسوم علیه های 220 برابر 284 است و مجموع مقسوم علیه های 284 برابر 220 می باشد.
این برنامه تحت بیسیک باشد

DECLARE FUNCTION m! (n!) t = TIMER CLS FOR i = 4 TO 1000000 p = m(i) IF p > i AND p < 1000000 THEN IF m(p) = i THEN PRINT p, i END IF NEXT i PRINT "all time : "; INT(TIMER - t); "S" FUNCTION m (n) FOR i = 2 TO n / 2 r = n MOD i IF r = 0 THEN IF i < (n / i) THEN s = s + (n / i) ELSE EXIT FOR END IF s = s + i END IF NEXT m = s + 1 END FUNCTION