with Ada.Text_IO;

procedure Bot is

   Task Type Bot_Task;

   Task Body Bot_Task is
   begin
      Ada.Text_IO.Put_Line("New Bot Task");
   end Bot_Task;

   Type Bot_Task_Access is access Bot_Task;

   X, Y : Bot_Task_Access;

begin

   X := new Bot_Task;
   Y := new Bot_Task;

end Bot;