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;
The article starter has earned a lot of community kudos, and such articles offer a bounty for quality replies.