' programma da correggere in modo da ottenere i divisori di N
10 INPUT "Batti (per esteso) un numero intero n, 0<n<=10000"; n
IF n > 1000 THEN GOTO 10
PRINT "  I suoi divisori sono: ";
d = 1
20 q = n / d
   IF q * d = n THEN PRINT d;
   d = d + 1
IF d <= n THEN GOTO 20
PRINT
GOTO 10