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