with Ada.Text_IO;
use  Ada.Text_IO;

procedure Essai16A is

    task type T_Tsk (NbreSecondes : Positive);
 
    task body T_Tsk is
 
    begin -- T_Tsk
 
        delay NbreSecondes * 1.0;
        Put_Line ("Fini");
 
    end T_Tsk;
 
    Bidon1 : T_Tsk (1);
    Bidon2 : T_Tsk (2);
 
begin  -- Essai16A

    null;
 
end Essai16A;