The Ada Program: world.adb

  1 with Ada.Text_IO;
  2 use Ada;
  3 
  4 -- program to do one thing: print a message
  5 procedure World is
  6    -- Some text given a name for later use
  7    Msg: constant String := "Hello world!";
  8 begin
  9    Text_IO.Put_Line (Msg);
 10 end World;