Download

Using GNAT I/O

-- Ada Hello, World! program.
with Text_IO; use Text_IO;      -- This gets the IO facility.
procedure Hello is              -- Main, but no special name is needed.
begin
   Put_Line("Hello, World!");   -- Put_Line is from Text_IO.
end Hello;

Using GNAT I/O