text_io.adb

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

--package body
 with text_io;
 package body main_pack is
      procedure print is
      i : integer;
      begin
         Text_IO.Put_Line ("this is procedure print");
      end print;

   end main_pack;