NbGroupes : Entier Virtuel Lecture Public;
Principal /*******/ Variable /******/ E : EnteteEdifact; Debut ... Ecran.Ecrire(E.NbGroupes); ... Fin Principal