with Text_Io; use Text_Io; procedure Readint is S : String (1 .. 5); begin Put("Give a string : "); Get(S); Put_Line(S); end Readint;