With Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
   package Int_IO is new Ada.Text_IO.Integer_IO(Integer);
   C : Character;
   I : Integer;
   S : String (1 .. 100);
begin
   Put_Line ("Hello. Welcome to the Ada.Text_IO example" & "!");
   New_Line;
   Put ("Please enter a single character now followed by <CR> ");
   Get (C);
   Put ("Your character is: ");
   Put (C);
   skip_line;   -- get over remaining <cr> needed by operating system
   New_Line (2);

   Put ("Please enter a String now followed by <CR> :");
   Get_Line (S, I);
   Put ("Your String is : ");
   Put_Line (S (1 .. I));
   Put ("Its length is : ");
   Put (Integer'Image(I));
   New_Line (2);

   Put ("Please enter an integer now followed by <CR> ");
   Int_IO.Get (I);
   Put ("Your number is: ");
   Int_IO.Put (I);
   New_Line (2);
end Hello;