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

        s <-- 0
        nbn <-- 0
                
        Repeter.
        {
                Afficher("Veuillez entrer un nombre entier positif ou 0 pour arreter : ")
                Saisir(n)
                
                s <-- s + n
                nbn <-- nbn + 1
        
        } jusqu'à (n=0)
        
        nbn <-- nbn - 1 // ou initialiser nbn à -1
        
        Afficher("La somme des ", nbn, " entier(s) saisi(s) est :", s, ".\n")
}