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 ;