Hello World

with Ada.Text_IO; use Ada.Text_IO;
 
-- *******************************************************************
-- *
-- * PROGRAM :           Hello World
-- * AUTHOR :            Xavier Perseguers
-- * CREATION DATE :     13.12.2000
-- * LAST MODIFICATION : dd.mm.2000
-- *
-- *******************************************************************
 
procedure Hello_World is
 
Name : String(1..20);
 
Length : Natural range 0..20;
 
begin
 
Put("What's your name? ");
Get_Line(Name, Length);
Put_Line("Hello " & Name(1..Length) & "!");
 
end;
Flattr