Ada语言中使用 – 来表示一行的注释,正如本例中末尾的三行一样
with Ada.Text_IO;
use Ada.Text_IO;
procedure UglyForm is
begin
Put("Good Form");
Put("can aid in");
Put("Understanding a program");
New_Line;
Put("But a bad form can");
Put(" make program unreadable.");
New_Line;
end UglyForm;
-- Result of execution
-- Good form can aid in understanding a program,
-- and bad form can make a program unreadable.