RosettaCodeData/Task/Pointers-and-references/Ada/pointers-and-references-8.adb

type Container is array (Positive range <>) of Element;
for Item of Container loop
      Do_Something(Item);
end loop;