Algorithme guess

      var nombre_secret, essai, nombre_essai: entier

  DEBUT

      nombre_secret <- 4          // ou un autre nombre fixe entre 1 et 100
      nombre_essai <- 0

      ECRIRELN("خمن عددا من  1 الى 10")

      TANTQUE (nombre_essai < 4) FAIRE

          ECRIRE("محاولتك: ")
          LIRE(essai)
          nombre_essai <- nombre_essai + 1

          SI essai = nombre_secret ALORS
              ECRIRELN("أحسنت, العدد الصحيح هو 4")
              nombre_essai <- 4
              SINON
                  si (essai < nombre_secret) alors
                      ECRIRELN("عددك أصغر. حاول مرة أخرى")
                      sinon
                      ECRIRELN("عددك كبير. حاول مرة أخرى")
                  finsi
          finsi

      FINTANTQUE

      ECRIRE("شكرا على المشاركة")

  FIN
              

  خمن عددا من  1 الى 10
  محاولتك: 8
  عددك كبير. حاول مرة أخرى
  محاولتك: 7
  عددك كبير. حاول مرة أخرى
  محاولتك: 3
  عددك أصغر. حاول مرة أخرى
  محاولتك: 4
  أحسنت, العدد الصحيح هو 4
  شكرا على المشاركة

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