Strings
"foo ""bar"" baz"
"Multi-line strings are appended with a " &
"ampersand symbole."
Ada83 example
WITH ADA.TEXT_IO;
--  Comments look like this.
PROCEDURE TEST IS
BEGIN
   ADA.TEXT_IO.PUT_LINE ("Hello");   --  Comments look like this.
END TEST;
Ada 2012 full example
with Ada.Text_IO; Use Ada.Text_IO;
--  Comments look like this.
procedure Test is
   procedure Bah with
    Import        => True,   --  Shows the new aspect feature of the language.
    Convention    => C,
    External_Name => "bah";
   type Things is range 1 .. 10;
begin
   Put_Line ("Hello");   --  Comments look like this.
   Bah;  -- Call C function.
   for Index in Things'Range loop
      null;
   end loop;
end Test;