-- Chapter 10 - Program 4
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure MultAry2 is

   SIZE : constant := 3;
   NEXT : constant := SIZE + 1;

   type MATRIX is array(INTEGER range 1..SIZE,
                        INTEGER range 1..NEXT) of INTEGER;

   Square_Board  : MATRIX;
   Checker_Board : MATRIX;
   Chess_Board   : array(INTEGER range 1..SIZE,
                         INTEGER range 1..NEXT) of INTEGER;
   Across, Over  : INTEGER;

begin

   for Across in 1..SIZE loop
      for Over in 1..NEXT loop
         Square_Board(Across, Over) := Across * Over;
         Chess_Board(Across, Over) := 0;
      end loop;
   end loop;

   Checker_Board := Square_Board;

   Checker_Board(2, 3) := 2;
   Checker_Board(Checker_Board(2, 3), 4) := 17;
   Checker_Board(3, 3) := Chess_Board(3, 3);

   for Across in 1..SIZE loop
      for Over in 1..NEXT loop
         Put(Checker_Board(Across, Over), 5);
      end loop;
      New_Line;
   end loop;

end MultAry2;




-- Result of execution

--     1    2    3    4
--     2    4    2   17
--     3    6    0   12