002：Ada自定义类型

-- putwage.adb
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Putwage is
   subtype Age is Integer range 1 .. 100;
   subtype Wage is Integer;
   Bill_Age : Age :=56;
   Bill_Wage : Wage :=56;
begin Put (" Total Wage Is ");
   Put(Integer(Bill_Wage)*Integer(Bill_Age));
   New_Line;
end Putwage;