1with Ada.Text_IO; 2-- with Mes_Tasches_P; 3with Input_1; 4 5-- procedure Client is 6procedure Input is 7 8begin 9 10 Ada.Text_IO.Put_Line ("Tasks won't stop, kill it with CTRL-C"); 11 -- Mes_Tasches_P.Ma_Tasche.Accepter (Continuer => True); 12 Input_1.Ma_Tasche.Accepter (Continuer => True); 13 14end Input; 15-- end Client; 16