algorithme la valeur absolu

avant de créer un algorithme qui permet d'afficher la valeur absolu d'un nombre réel ou entier ,
il faut de traité  comme une équation mathématique!
les nombres > 0
leur valeur absolu c'est la même.
mais les nombres <0 ,leur valeur absolu c'est le nombre x -(1)
l'algorithme:
Algo valeur absolu
Début
         var a,va :entier
         lire("veuillez entrer une valeur: ",a);
         si (a<0) alors
         va <-- a* (-1)
         si non
         va <-- a
         afficher("la valeur absolu de ",a," est ",va)
Fin