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

procedure tryArrays0 is

   a: array (1 .. 4) of Integer;  -- Not initialized

begin
   for i in 1 .. 4 loop
      a(i) := i * 2;
   end loop;

   put(a(3));

   put(a(a'first));
   put(a(a'last));

   for i in a'first .. a'last loop
      put(i);
      put(a(i));
      new_line;
   end loop;
   new_line;

   for i in a'range loop
      put(i);
      put(a(i));
      new_line;
   end loop;
   new_line;

   put(a'length);

end tryArrays0;
-- SAMPLE RUN
          1          2
          2          4
          3          6
          4          8

          1          2
          2          4
          3          6
          4          8

          4