All pastes #168869 Raw Edit

Sans nom

public text v1 · immutable
·published 2006-09-13 12:14 UTC
rendered paste body
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