12 lines
327 B
Plaintext
12 lines
327 B
Plaintext
with ada.text_io;
|
|
procedure HALLO_01 is
|
|
VOR : character;
|
|
NACH : character;
|
|
begin
|
|
ada.text_io.put(item => "Bitte geben Sie Ihre Initialen (z.B. AB) ein: ");
|
|
ada.text_io.get(item => VOR);
|
|
ada.text_io.get(item => NACH);
|
|
ada.text_io.put(item => "Hallo " & VOR & NACH & ", wie geht es?");
|
|
ada.text_io.new_line;
|
|
end HALLO_01;
|