BorneSuperieure : Entier;
Principal /*******/ Variable /******/ E : Nul Ou IntervalleContenu; Debut ... Ecran.Ecrire(E.BorneSuperieure); ... Fin Principal