Algorithme reverse
    var n, reversed, digit: entier
  debut
    ecrire ("أدخل عددا لعكسه: ")
    lire(n)
    reversed <- 0
    tantque (n > 0) faire
        digit <- n % 10
        reversed <- reversed * 10 + digit
        n <- n div 10
    fintantque
    ecrireln(" ")
    ecrire("العدد المعكوس هو: ")
    ecrire(reversed)
  fin
              

  أدخل عددا لعكسه: 1234

  العدد المعكوس هو: 4321

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