Codebase list ohcount / 4fa67836-5fea-4473-87e4-bd80a2d5b1ae/main test / src_dir / ada1.ada
4fa67836-5fea-4473-87e4-bd80a2d5b1ae/main

Tree @4fa67836-5fea-4473-87e4-bd80a2d5b1ae/main (Download .tar.gz)

ada1.ada @4fa67836-5fea-4473-87e4-bd80a2d5b1ae/main — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
		 with Ada.Text_IO; use Ada.Text_IO;

		 procedure Get_Name is

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

		 begin
			 -- no variables needed here :)
			 
			 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;