RosettaCodeData/Task/Hello-world-Text/Ada/hello-world-text.adb

with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
begin
  Put_Line ("Hello world!");
end Main;