golden.adb

-- 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;