fork download
  1. with Text_IO; use Text_IO;
  2. procedure Hello is
  3. begin
  4. Put_Line("Hello!");
  5. end Hello;
Success #stdin #stdout 0.01s 1716KB
stdin
21
stdout
Hello!