This repository has been archived on 2024-12-16. You can view files and clone it, but cannot push or open issues or pull requests.
CodeBlocksPortable/share/CodeBlocks/lexers/lexer_ada.sample

12 lines
327 B
Plaintext
Raw Permalink Normal View History

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;