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")
        
        
        somme <-- 0
        nb <-- 0
        
       
        Repéter
        {
                Afficher("Veuillez saisir un nombre entier")
                Saisir(nombre)
                somme <-- somme + nombre
                nb <-- nb + 1
                
        } jusqu'à (nombre = 0)
        
        Afficher("La somme des ", nb, " entiers saisis vaut ", somme, ".\n")      
}