Lbl 11
	ClrHome
	Input "Nombre :",B
	4L:0N:3K:{5,3,2}L
	BA
	Goto 3
Lbl 1
	0I
Lbl 2
	If fPart(A/Z)0:Goto 5
	I+1I:A/ZA:Goto 2
Lbl 5
	If I=0:Goto 6
	N+1N:Ndim(L):Ndim(L)
	ZL(N):IL(N)
Lbl 6
	If ZZ>A:Goto 4
	If K0:Goto 3
	6-LL:Z+LZ:Goto 1
Lbl 3
	L(K)Z:K-1K:Goto 1
Lbl 4
	If A=1:Goto 7
	N+1N:Ndim(L):Ndim(L)
	AL(N):1L(N)
Lbl 7
	"="Str1:"^"Str2
	ClrHome:Output(1,1,B)
	2L
	For(I,1,N)
		Output(L,1,Str1)
		L(I)A
		Output(L,2,A)
		L(I)K
		If K=1:Goto 8
		3+iPart(log(A))A
		Output(L,A,Str2)
		Output(L,A+1,K)
		Lbl 8
		If L<7 or IN-1:Goto 9
		Output(8,1,"Suite...")
		Pause :2L:ClrHome:Output(1,1,B)
		Goto 10
		Lbl 9
		1+LL:"x"Str1
		Lbl 10
	End
Lbl 12
	Pause 
	Menu("Que faire?","Autre Nombre",11,"Liste 	diviseurs",20,"Fin",90)
Lbl 20
	ClrHome:1A
	For(I,1,N):A*(L(I)+1)A:End
	Ndim(L):Ndim(L):Adim(L)
	Fill(0,L)
	Output(1,1,"Il y a"):Output(1,8,A)
	Output(2,1,"diviseurs...")
	For(I,1,N):1Z
		For(J,1,L(I)):Z*L(I)Z:End
	ZL(I):End
	1Z:0J
Lbl 21
	1I:J+1J:ZL(J)
Lbl 22
	L(I)+1L(I)
	If L(I)>L(I):Goto 23
	Z*L(I)Z:Goto 21
Lbl 23
	Z/L(I)Z:0L(I):I+1I
	If IN:Goto 22
	SortA(L)
	3L
	For(I,1,A)
		Output(L,2,L(I))
		If L<7 or IA-1:Goto 24
		Output(8,1,"Suite...")
		Pause :1L:ClrHome
		Goto 25
		Lbl 24
		1+LL
		Lbl 25
	End
	Goto 12
Lbl 90
	ClrHome
	Stop