-- Source code for an article published at the Ada Home <http://www.adahome.com/>
--
--   Introducing Ada
--     by Eric DeArment
--   January 1998
--
-- See <http://www.adahome.com/articles/1998-01/ar_intro.html>


with Ada.Text_IO; use Ada.Text_IO;

procedure Get_Name is

  Name   : String (1..80);
  Length : Integer;

begin

  Put ("Enter your first name> ");
  Get_Line (Name, Length);
  New_Line;
  Put ("Hello ");
  Put (Name (1..Length));
  Put (", we hope that you enjoy learning Ada!");

end Get_Name;