-- golden.adb with Ada.Integer_Text_IO; use Ada; procedure Golden is Year : constant Integer := 2001; Golden: constant Integer := (Year mod 19) + 1; begin Integer_Text_IO.Put (Item=>Golden); declare Century : constant Integer := (year / 100) + 1; Gregorian: constant Integer := (3*century / 4) - 12; begin Integer_Text_IO.Put (Item=>Gregorian); end; end Golden;