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;