with ada.text_io; use ada.text_io; 
with ada.integer_text_io; use ada.integer_text_io; 
 
procedure print10 is 
    arraySize: constant natural := 10; 
    a: array (1 .. arraySize) of Integer;

    num: integer;
begin 
    for i in 1 .. 20 loop
        get(num);
        a(i) := num;
    end loop;

    -- Other ways to code loop
    -- for i in reverse a'first .. a'last loop  
    -- for i in reverse a'range loop            

    for i in reverse 1 .. arraySize loop
        put(a(i)); 
        new_line;
    end loop;

end print10;