-- Chapter 14 - Programming exercise 1
with Ada.Text_IO;
use Ada.Text_IO;

procedure CH14_1 is

   One_Char : CHARACTER;

begin

   Put_Line("Input characters to display, enter Q to stop.");

   loop       -- Read one character at a time and display it
      Get(One_Char);
      Put(One_Char);
      New_Line;
      exit when One_Char = 'Q';
   end loop;
   New_Line(2);

end CH14_1;




-- Result of execution

-- (The output depends on the input.)