Algorithme even_or_odd
    var x: entier
  debut
    ecrire("ادخل عددا صحيحا: ")
    lire(x)
    si (x % 2 = 0) alors
        ecrire( "العدد زوجي")
    sinon
            ecrire("العدد فردي")
    finsi
  fin