projects
/
ohcount
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial Revision
[ohcount]
/
test
/
expected_dir
/
ada1.ada
/
ada
/
code
1
with Ada.Text_IO; use Ada.Text_IO;
2
procedure Get_Name is
3
Name : String (1..80);
4
Length : Integer;
5
begin
6
Put ("Enter your first name> ");
7
Get_Line (Name, Length);
8
New_Line;
9
Put ("Hello ");
10
Put (Name (1..Length));
11
Put (", we hope that you enjoy learning Ada!");
12
end Get_Name;