# mission1a.adb

    with KakoRobot ;

    procedure Mission1a is

       package K renames KakoRobot ;

    begin

       -- Tous les robots effectuent les mêmes mouvements.
       for I in 1..K.Nombre_Robots loop

         -- Itinéraire pour chaque robot
         K.Deplacer (i, K.Ouest) ;
         K.Deplacer (i, K.Ouest) ;
         K.Deplacer (i, K.Nord) ;
         K.Deplacer (i, K.Ouest) ;
         K.Deplacer (i, K.Ouest) ;
         K.Deplacer (i, K.Ouest) ;
       end loop ;

    end Mission1a ;