with Ada.Text_IO; use Ada.Text_IO;
procedure Main is

   i:integer:=4;

   task T1 is
      entry Cita;
   end T1;

   task T2;

   task body T1 is
   begin
      Put_Line("Soy la tarea T1");
      select
      when i<5 =>
      accept Cita  do
         Put_Line("Cita Aceptada");
      end Cita;
      end select;
      Put_Line("Fin T1");
   end T1;

   task body T2 is
   begin
      Put_Line("Soy la Tarea T2");
      T1.Cita;
      Put_Line("Fin T2");
   end T2;


begin
   --  Insert code here.
   null;
end Main;