-- Chapter 18 - Programming exercise 2 with Ada.Text_IO, Ada.Integer_Text_IO; use Ada.Text_IO, Ada.Integer_Text_IO; procedure CH18_2 is Data_Point : INTEGER; Procedure Increment(In_Val : in out INTEGER); procedure Display(Dis_Val : in out INTEGER) is begin Put("The value of the variable is now "); Put(Dis_Val); New_Line; Increment(Dis_Val); end Display; procedure Increment(In_Val : in out INTEGER) is begin if In_Val < 8 then In_Val := In_Val + 1; Display(In_Val); end if; end Increment; begin Data_Point := 1; Increment(Data_Point); end CH18_2; -- result of execution -- The value of the variable is now 2 -- The value of the variable is now 3 -- The value of the variable is now 4 -- The value of the variable is now 5 -- The value of the variable is now 6 -- The value of the variable is now 7 -- The value of the variable is now 8