Algorithme Valeur_Absolue
{
        variable A, AbsA : reel
               
        Afficher("Cet algorithme calcule la valeur absolue d'un nombre saisi au clavier.\n")
        Afficher("Veuillez saisir la valeur dont vous voulez connaitre la valeur absolue : ")
        Saisir(A)
        
        Si (A >= 0) alors 
        {
                AbsA <-- A
        }
        sinon
        {
                AbsA <-- -A
        }
                       
        Afficher("La valeur absolue de ",A," est ", AbsA, ".\n")
}