ClrText
"LISTE DES NOMBRES 1ER"
"COMBIEN:"?ÞF
Seq(1,X,1,F,1)ÞList 6
2ÞX:1ÞT:0ÞW
2ÞList 6[1]
Do
X‰1ÞX
For 1ÞL To T
X¹List 6[L]ÞQ
If Frac Q=0
Then 1ÞW:Break
IfEnd
Next
If W=0
Then T‰1ÞT
XÞList 6[T]
Locate 15,5,X
Else 0ÞW
IfEnd
LpWhile T<F
"LIRE List 6"
"FIN"