Para encontrar los divisores de un numero:
Código (freebasic) [Seleccionar]
variables numero, x.
para x desde 1 hasta numero hacer
si (numero mod x = 0)
mostrar i.