1  with Ada.Text_IO; use Ada.Text_IO;
2  
3  procedure Hello is
4  begin
5     Put_Line ("Hello, World!");
6  end Hello;