CLS
INPUT "Type a number ",A
FOR I = 1 TO A
IF (A/I) = INT(A/I) THEN PRINT I, A/I
NEXT I