Algorithme PGCD_par_soustraction
  Var a, b : entier
  Début
      Lire(a, b)

      // On garde toujours le plus grand dans a
      Tantque (a != b) faire
          Si (a > b) alors
              a <- a - b
          Sinon
              b <- b - a
          FinSi
      Fintantque

      Ecrire("PGCD = ", a)
  Fin
              

  12
  18
  PGCD = 6

  --------------
  [Fin de programme]
              

            Tant qu'il reste quelque chose dans b :
                Je remplace a par "ce qui reste quand je divise a par b"
                Je mets l'ancien b à la place de a
                Je continue avec le nouveau b
            À la fin, quand b devient 0 → a est le PGCD
              

  Algorithme CalculPGCD
  Variables
      a, b, temp : entier
  Début
      Lire(a)
      Lire(b)

      Tantque (b != 0) faire
          temp <- b
          b <- a % b
          a <- temp
      fintantque

      ecrire("PGCD = ", a)

  Fin