Algorithme Exo_21

Variables 

    i, N, a : Entier

   T : Tableau[13] d'entier

Début

  N ← 15

  a ← N

  Pour i allant de 0 à N-3

Faire

      T[i] ← a

      a ← a - 1

  FinPour

  Pour i allant de 0 à N-3

Faire

             Si (T[i] % T[N-3-i] == 0) Alors

                T[i] ← 0

                T[N-3-i] ← 0

             FinSi

  FinPour

  Pour i allant de 0 a N-3 Faire 

       Ecrire(T[i], "  " )

   FinPour

Fin