1 2 3 4 5 6 7 8
-- Public domain with Ada.Text_IO; procedure Greet is begin Ada.Text_IO.Put_Line ("Hello, World!"); end Greet;