1 ada code with Ada.Text_IO; use Ada.Text_IO;
3 ada code procedure Get_Name is
5 ada code Name : String (1..80);
6 ada code Length : Integer;
9 ada comment -- no variables needed here :)
11 ada code Put ("Enter your first name> ");
12 ada code Get_Line (Name, Length);
14 ada code Put ("Hello ");
15 ada code Put (Name (1..Length));
16 ada code Put (", we hope that you enjoy learning Ada!");
18 ada code end Get_Name;