with Ada.Text_IO, Ada.Integer_Text_IO; use Ada; procedure Parsing is buff : String(1..100); n :integer; begin Text_IO.Get_line(buff,n); Text_IO.Put(Item=>name); Text_IO.New_Line; for i in 1..n loop Text_IO.Put(Item = > name(i)); end loop ; end Parsing;