with Ada.Text_IO; use Ada.Text_IO; with Ada.Containers.Vectors; procedure Program is package Vectors is new Ada.Containers.Vectors(Positive,Integer); Vector : Vectors.Vector; begin Vector.Append(10); Vector.Append(20); Vector.Append(30); Vector.Append(40); for Element of Vector loop Put_Line(Element'Image); end loop; end Program;