-- Read 2 integers

with ada.text_io; use ada.text_io; 
with ada.integer_text_io; use ada.integer_text_io; 
 
procedure inp1   is 
    i: Integer;
    sum: Integer := 0;
begin
    get(i);            -- Reads next integer in input, and stores that value in i
                       -- Skips white space to find next integer.
    
    put(i'img);
    sum := sum + i;

    get(i);            -- Reads next integer in input
    put(i'img);
    sum := sum + i;

    put_line(sum'img);

end inp1;
-- Input: 2 3
-- Output:
--| 2 3 5