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;