with ada.text_io; use ada.text_io; procedure string_in is s1: string(1 .. 5); begin get(s1); -- Reads 5 characters, skipping line separators put_line(s1); end string_in;