Algorithme Comptage
{
        variable val, somme, cpt : entier
        
        cpt <-- 0
        somme <-- 0
        
        Afficher("Saisissez un nombre entier positif :")
        Saisir(val)
        
        Tant que (val != 0)
        {
                somme <-- somme + val
                cpt <-- cpt + 1
                Afficher("Saisissez un nombre entier positif :")
                Saisir(val)      
        }
        
        Afficher("La somme des ", cpt, " nombres saisis est ", somme, ".\"
}