1   VARIABLES
2     J EST_DU_TYPE LISTE
3     n EST_DU_TYPE NOMBRE
4     P EST_DU_TYPE NOMBRE
5     i EST_DU_TYPE NOMBRE
6     i1 EST_DU_TYPE NOMBRE
7     i2 EST_DU_TYPE NOMBRE
8     I EST_DU_TYPE NOMBRE
9     S EST_DU_TYPE NOMBRE
10    T EST_DU_TYPE NOMBRE
11    c EST_DU_TYPE NOMBRE
12  DEBUT_ALGORITHME
13    AFFICHER "Combien de pions voulez vous mettre ?"
14    LIRE n
15    AFFICHER "Jusqu'a combien voulez vous qu'il comptent ?"
16    LIRE P
17    c PREND_LA_VALEUR 1
18    POUR i ALLANT_DE 0 A n-1
19      DEBUT_POUR
20      J[i] PREND_LA_VALEUR 1
21      FIN_POUR
22    S PREND_LA_VALEUR ALGOBOX_SOMME(J, 0, n-1)
23    i1 PREND_LA_VALEUR 0
24    I PREND_LA_VALEUR 0
25    AFFICHER "Les pions suivants sont morts dans cet ordre :"
26    TANT_QUE (S >= P) FAIRE
27      DEBUT_TANT_QUE
28      SI (J[i1] == 1) ALORS
29        DEBUT_SI
30        I PREND_LA_VALEUR I % P + 1
31        SI (I == P) ALORS
32          DEBUT_SI
33          J[i1] PREND_LA_VALEUR 0
34          i2 PREND_LA_VALEUR i1 + 1
35          AFFICHER c
36          AFFICHER " - > "
37          AFFICHER i2
38          S PREND_LA_VALEUR S - 1
39          c PREND_LA_VALEUR c+1
40          FIN_SI
41        FIN_SI
42      i1 PREND_LA_VALEUR (i1 + 1) % n
43      FIN_TANT_QUE
44    AFFICHER " "
45    AFFICHER "les pions survivants sont :"
46    POUR i ALLANT_DE 0 A n - 1
47      DEBUT_POUR
48      SI (J[i] == 1) ALORS
49        DEBUT_SI
50        i2 PREND_LA_VALEUR i + 1
51        AFFICHER i2
52        FIN_SI
53      FIN_POUR
54  FIN_ALGORITHME