Liste des diviseurs du nombre

dim liste(50)
input "Nombre : ";a
c = 0 'compteur
for var = 1 to a
    if a/var = int(a/var) then 'si var est un diviseu de a
        c = c+1  'incrémentation du compteur
        liste(c) = var  'ajout de var dans la liste des diviseurs
    end if
next
print "D(";a;") = {";
chaine$ = ";"
for var = 1 to c
    if var = c then chaine$ = ""
    print liste(var);chaine$;    'affiche la liste des diviseurs
next
print "}"