The Ada Program: abstraction.adb

  1 -- abstraction.adb:  Ada program illustrating subprocedures
  2 
  3 with Ada.Text_IO, Ada.Integer_Text_IO;
  4 use Ada;
  5 
  6 procedure Abstraction is
  7 
  8     procedure Put_Line (I: in Integer) is
  9     begin
 10         Integer_Text_IO.Put (Item => I);
 11         Text_IO.New_Line;
 12     end Put_Line;
 13 
 14 begin
 15 
 16     Text_IO.Put_Line ("Hi!");
 17 
 18     Put_Line (I => 7);
 19 
 20     Put_Line (I => 15);
 21 
 22     Text_IO.Put_Line ("Hi, again.");
 23 
 24     Put_Line (I => 31);
 25 
 26     Put_Line (I => 63);
 27 
 28     Text_IO.Put_Line ("The end.");
 29 
 30 end Abstraction;