-- Read 4 characters

with ada.text_io; use ada.text_io; 
procedure inp2   is 
    c: Character;
begin
    -- READ and PRINT a character 4 times
    get(c);         -- Reads next character in input, and store that value in c
    put(c);
    new_line;
    
    get(c);         -- Reads next character in input, and store that value in c
    put(c);
    new_line;
    
    get(c);         -- Reads next character in input, and store that value in c
    put(c);
    new_line;
    
    get(c);         -- Reads next character in input, and store that value in c
    put(c);
    new_line;
end inp2;
-- Blanks are read as characters.  Newlines are skipped.
-- Input: xy z
-- Output:
--|x
--|y
--|
--|z

-- Input:
--|pq
--|
--|
--|rs
-- Output:
--|p
--|q
--|r
--|s