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