with Ada.Integer_Text_IO; use  Ada.Integer_Text_IO;
with Ada.Text_IO;         use  Ada.Text_IO;

procedure tryArrays2 is

   type MyArray   is array (1 .. 5) of Integer;
   type YourArray is array (1 .. 5) of Integer;

   a: MyArray := (11, 12, 13, 14, 15);
   b: MyArray;

   c: YourArray := (21, 22, 23, 24, 25);

   d: array (1 .. 5) of Integer := (31, 32, 33, 34, 35);

begin
   -- Array assignment
   b := a;

   for i in b'range loop
      put(b(i), 3);
   end loop;
   new_line;

   -- a := c;   -- Compile error: types must be the same

   -- a := d;   -- Compile error: types must be named and the same

end tryArrays2;
--SAMPLE RUN
 11 12 13 14 15