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)
                
                Si (n!=0) alors
                {
                        s <-- s + n
                        nbn <-- nbn + 1
                        Afficher("Actuellement, la somme des ", nbn, " entier(s) saisi(s) est :", s, ".\n")
                }
        
        } jusqu'à (n=0)
        
        Afficher("La somme des ", nbn, " entier(s) saisi(s) est :", s, ".\n")
}