Algo Calculatrice
{
    variables:
    a, b, r: réels
    op : caractères
    
    Afficher("Donner la valeur du premier opérande :")
    saisir(a)
    Afficher("Donner l'opérateur (+ - * ou /) :")
    saisir(op)
    Afficher("Donner la valeur du deuxième opérande :")
    saisir(b)


    selon (op)
    {
        '/':
              si (b=0) alors
              {
                Afficher("La division par 0 est impossible")
              }
              sinon
              {
                r <-- a / b
                Afficher("Le résultat de ", a, " ", op, " ", b, " = ", r)
              }
         '+':
              r <-- a + b
              Afficher("Le résultat de ", a, " ", op, " ", b, " = ", r)
         '-':
              r <-- a - b
              Afficher("Le résultat de ", a, " ", op, " ", b, " = ", r)
         '*':
              r <-- a * b
              Afficher("Le résultat de ", a, " ", op, " ", b, " = ", r)
         sinon : Afficher("L'opérateur ", op, " est inconnu.")
    }
}