The first of a few examples I'd like to contribute.

with Ada.Text_IO;

procedure hello_world is

begin -- Main Program
	Ada.Text_IO.put("Hello World!");
end hello_world;