Algorithme Comptage et Totalisation
{
        variable nombre, somme, nb : entier
        
        Afficher("Cet algorithme calcule la somme des nombres *entiers* positifs saisis et affiche le nombre de nombres saisis. Il faut saisir 0 pour arręter le calcul.\n")
        Afficher("Veuillez saisir un nombre entier")
        Saisir(nombre)
        
        somme <-- 0
        nb <-- 0
        
        Tant que (nombre != 0)
        {
                somme <-- somme + nombre
                nb <-- nb + 1
                Afficher("La somme partielle des nombres entiers saisis est ", somme,".\n")
                Afficher("Vous avez actuellement saisi ", nb, " nombres entiers.\n")
                Afficher("Veuillez saisir un nombre entier")
                Saisir(nombre)
        }
        
        Afficher("La somme des ", nb, " entiers saisis vaut ", somme, ".\n")      
}