-- 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