with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Integer_Text_IO, Ada.Text_IO;
procedure ejercicio01 is
   -- TAREAS ESTATICAS
   task a_estatica; -- Creamos una tarea estática a
   task body a_estatica is -- Desarrollamos la tarea a
   begin
      for i in 1..3 loop
         Put_Line("Tarea A estatica: "&Integer'Image(i));
      end loop;
   end a_estatica;
   task b_estatica; -- Creamos una tarea estática b
   task body b_estatica is -- Desarrollamos la tarea b
   begin
      for i in 1..3 loop
         Put_Line("Tarea B estatica: "&Integer'Image(i));
      end loop;
   end b_estatica;
   task c_estatica; -- Creamos una tarea estática c
   task body c_estatica  is -- Desarrollamos la tarea c
   begin
      for i in 1..3 loop
         Put_Line("Tarea C estatica: "&Integer'Image(i));
      end loop;
   end c_estatica;
   -- TAREAS DINAMICAS
   task type a_dinamica; -- Creamos una tarea dinamica a
   type a_dinamica_ptr is access a_dinamica; -- Creamos un tipo puntero a la tarea
   var_a_dinamica : a_dinamica_ptr; -- declaramos una variable del tipo puntero
   task body a_dinamica is -- desarrollamos la tarea
   begin
      for i in 1..3 loop
         Put_Line("Tarea A dinamica: "&Integer'Image(i));
      end loop;
   end a_dinamica;
   task type b_dinamica; -- Creamos una tarea dinamica b
   type b_dinamica_ptr is access b_dinamica; -- Creamos un tipo puntero a la tarea
   var_b_dinamica : b_dinamica_ptr; -- declaramos una variable del tipo puntero
   task body b_dinamica is -- desarrollamos la tarea
   begin
      for i in 1..3 loop
         Put_Line("Tarea B dinamica: "&Integer'Image(i));
      end loop;
   end b_dinamica;
   task type c_dinamica;-- Creamos una tarea dinamica c
   type c_dinamica_ptr is access c_dinamica; -- Creamos un tipo puntero a la tarea
   var_c_dinamica : c_dinamica_ptr; -- declaramos una variable del tipo puntero
   task body c_dinamica is -- desarrollamos la tarea
   begin
      for i in 1..3 loop
         Put_Line("Tarea C dinamica: "&Integer'Image(i));
      end loop;
   end c_dinamica;
begin -- Comienza la ejecucion de las tareas estaticas
   -- Instanciamos tres variables dinamicas
   var_a_dinamica := new a_dinamica; -- comienza a_dinamica
   var_b_dinamica := new b_dinamica; -- comienza b_dinamica
   var_c_dinamica := new c_dinamica; -- comienza c_dinamica

   -- SECUENCIAL

   for i in 1..3 loop
         Put_Line("Tarea A secuencial: "&Integer'Image(i));
   end loop;

   for i in 1..3 loop
         Put_Line("Tarea B secuencial: "&Integer'Image(i));
   end loop;

   for i in 1..3 loop
         Put_Line("Tarea C secuencial: "&Integer'Image(i));
   end loop;

end ejercicio01;