Code ada:
1
2
3
4
5
6
7
8
9
10
11
12
13

with Text_IO;
 
procedure Main is
name: String(1..50);
last: Natural;
 
begin
    Text_IO.Put("Geben Sie bitte Ihren Namen ein: ");
    Text_IO.Get_Line(name,last);
    Text_IO.Put("Hallo ");
    Text_IO.Put(name);
    Text_IO.Put_Line("!");
end Main;

Quelle: Ada WikiBook