algo connexion2
   fichier FCONNEX organisation séquentielle
      enregistrement econnex
         RegCode : chaine(4)
         VisMat : entier
         DateConnex : chaine(8)
         HeureConnex : chaine(8)
         Duree : entier
      fin enregistrement
      var temps,total : entier
      sauv : chaine de caractere
debut
   afficher("Temps totaux de connexion")
   total := 0
   ouvrir FCONNEX (lecture)
   lire econnex
   tant que non finfichier(FCONNEX)
      a_la_ligne
      temps := 0
      sauv := econnex.RegCode
      tant que non finfichier(FCONNEX) et sauv = econnex.RegCode
            temps := temps + econnex.duree
            lire econnex
      fin tant que
      total := total + temps
      afficher("Total région ",sauv," = ",temps)
   fin tant que
   a_la_ligne
   afficher("Total général = ",total)
   fermer FCONNEX
fin