------------------------------------------------------------------------------
-- Nom fichier      : labo7_visibilite.adb                                  --
-- Auteur           : rachid Chelouah                                       --
-- modif	        : 
-- Date             : 15 oct. 2009 			                            --
--                                                                          --
-- But              : exercice traitant la visibilité des identificateurs   --
--												    --
--                                                                          --
-- Date de modif.   :                                                       --
-- Raison           :                                                       --
-- Modules appeles  :                                           		    --
-- Mat. particulier :                                                       --
--                                                                          --
-- Compilation      :                                         		    --
-- Edition de liens :                                         		    --
-- Mode d'execution :                                              	    --
------------------------------------------------------------------------------

   with ada.text_io;			   use ada.text_io;				
   with ada.Integer_text_io;	         use ada.integer_text_io;	
  	

    procedure Region_1 is
      Une_Variable_Integer:Integer:=10;
      Une_Variable_Constant:constant:=50;
      
       procedure Region_2 is
         
           Une_Variable_Integer:Integer:=20;
         
           procedure Region_3 is
              Une_Variable_Integer:Integer:=30;
           begin --Region_3
              put("Region_3: ");     
           end Region_3;
               	
           procedure Region_3_1(Une_Variable_En_Parametre:in Integer) is
             Une_Variable_Integer:Integer:=40;
             Une_Variable_Region_3_1:Integer:=100;         
           begin --Region_3_1
             put("Region_3_1: ");
             Region_3;        
           end Region_3_1;
          	
       begin --Region_2
          put("Region_2: ");
          Region_3_1(10);						       
       end Region_2;
   	
   begin --Region 1
      put("Region_1: ");
      Region_2;
   end Region_1;