NomType : Caractere Lecture Public;
Principal /*******/ Variable T1 : Nul Ou Type; Debut ... T1=Caractere; Ecran.Ecrire(T1.NomType); /* Ecrit a l'écran le nom du type soit Caractere. */ ... Fin Principal