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;

ICAgIHdpdGggQWRhLlRleHRfSU87IHVzZSBBZGEuVGV4dF9JTzsKICAgIHdpdGggQWRhLkNvbnRhaW5lcnMuVmVjdG9yczsKICAgICAKICAgIHByb2NlZHVyZSBQcm9ncmFtIGlzCiAgICAgICAgcGFja2FnZSBWZWN0b3JzIGlzIG5ldyBBZGEuQ29udGFpbmVycy5WZWN0b3JzKFBvc2l0aXZlLEludGVnZXIpOwogICAgIAogICAgICAgIFZlY3RvciA6IFZlY3RvcnMuVmVjdG9yOwogICAgIAogICAgYmVnaW4KICAgICAKICAgICAgICBWZWN0b3IuQXBwZW5kKDEwKTsKICAgICAgICBWZWN0b3IuQXBwZW5kKDIwKTsKICAgICAgICBWZWN0b3IuQXBwZW5kKDMwKTsKICAgICAgICBWZWN0b3IuQXBwZW5kKDQwKTsKICAgICAKICAgICAgICBmb3IgRWxlbWVudCBvZiBWZWN0b3IgbG9vcAogICAgICAgICAgICBQdXRfTGluZShFbGVtZW50J0ltYWdlKTsKICAgICAgICBlbmQgbG9vcDsgICAKICAgIGVuZCBQcm9ncmFtOw==