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