1. with Ada.Text_IO; use Ada.Text_IO; 
  2.  
  3. procedure Two_Tasks is 
  4.  
  5.    task First_One; 
  6.    task Second_One; 
  7.  
  8.    task body First_One is 
  9.  
  10.    begin 
  11.       Put ("Hello .. "); 
  12.       Put_Line ("and goodbye world from task 1"); 
  13.    end First_One; 
  14.  
  15.    task body Second_One is 
  16.  
  17.    begin 
  18.       Put ("Hello .. "); 
  19.       Put_Line ("and goodbye world from task 2"); 
  20.    end Second_One; 
  21.  
  22. begin 
  23.    Put ("Hello .. "); 
  24.    Put_Line ("and goodbye world from Two_Tasks"); 
  25. end Two_Tasks;