Algorithme sign_sum
    Var a, b, c, d : entier
  Début
      Lire(a, b)

      si ( a < 0 ) alors
          c <- a * (-1)
      sinon
          c <- a
      finsi

      si ( b < 0 ) alors
          d <- b * (-1)
      sinon
          d <- b
      finsi

      si (a>d et a>0) ou (b>c et b>0) alors
          ecrire("Positif")
      sinon
          ecrire("Negatif")
      finsi

  Fin
              

  -5
  6
  Positif

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