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;