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
;