Algorithme positive_or_negative
  var x: entier
  debut
    lire(x)
    si (x<0) alors
        ecrire("سالب")
    sinon
        ecrire("موجب")
    finsi
  fin