The Ada Program: block.adb

  1 -- block.adb:  find min and max using the block statement
  2 
  3 with Ada.Integer_Text_IO;
  4 use Ada;
  5 
  6 procedure Block is
  7 
  8     Min, Max:  Integer;
  9 
 10 begin
 11 
 12     Integer_Text_IO.Get (Item=>Min);
 13     Integer_Text_IO.Get (Item=>Max);
 14 
 15     if (Min > Max) then
 16 
 17         Exchange:  declare
 18             Temp:  Integer;
 19         begin
 20             Temp:=Min;  Min:=Max;  Max:=Temp;
 21         end Exchange;
 22 
 23     end if;
 24 
 25 end Block;