diviseur(n)
Prgrm
EffES
1>a
1>k
while non estprem(k)
n/a>k
if partdec(n/a)=0 Then
Disp a
Disp a/n
Pause
EndIf
a+1>a
EndWhile
EndPrgrm