100 PRINT "ENTER THE NUMBER"
200 INPUT N
300 REM * HOLDS SUM OF DIVISORS
310 LET S = 0
400 REM * HOLDS NUMBER OF DIVISORS
410 LET D = 0
505 FOR I = 1 TO N
510     REM IF NOT EXACT DIVISIBLE NEXT NUMBER
600     IF (N/I)*I < > N THEN NEXT I
610     PRINT I
620     S = S + I: D = D + 1
700 NEXT I
800 PRINT "SUM = ";S,"NUMBER OF DIVISORS = ";D
900 END