Algorithme number_of_digits

    var n, i, premier: entier

  debut

    ecrire("أدخل رقما  >= 2 : ")
    lire(n)
    premier <- 1
    i <- 2

    tantque (i < n) faire
        si (n % i == 0) alors
            premier <- 0
        finsi
        i <- i + 1
    fintantque

    si (premier == 1) alors
        ecrire("العدد أولي")
    sinon
        ecrire("العدد ليس أوليا")
    finsi

  fin
              

  أدخل رقما  >= 2 : 13
  العدد أولي

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