Algorithme Comptage_Totalisation
{
        variable n : entier
                 s, nbn : entier

        s <-- 0
        nbn <-- 0
        
        Afficher("Veuillez entrer un nombre entier positif ou 0 pour arreter : ")
        Saisir(n)
        
        Tant que ( n != 0)
        {
                s <-- s + n
                nbn <-- nbn + 1
                Afficher("Veuillez entrer un nombre entier positif ou 0 pour arreter : ")
                Saisir(n)        
        }
        
        Afficher("La somme des ", nbn, " entier(s) saisi(s) est :", s, ".\n")
}