put_usage_through_package.adb

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

with text_io; use text_io;

procedure put_usage_through_package is

   x: integer := 99;

   package int_io is new text_io.integer_io(integer); -- package instantiation

begin
   text_io.put_line("Printing something");

   text_io.put_line("x");

   int_io.put(x);

   for i in 1..10 loop

      int_io.put(i);

      text_io.new_line;

      text_io.put(integer'image(i));

      text_io.new_line;

   end loop;
end;