The Ada Program: no_abstraction.adb

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