git.oblomov.eu Git - ohcount/blob - test/expected_dir/ada1.ada

   1 ada     code                     with Ada.Text_IO; use Ada.Text_IO;
   2 ada     blank
   3 ada     code                     procedure Get_Name is
   4 ada     blank
   5 ada     code                             Name   : String (1..80);
   6 ada     code                             Length : Integer;
   7 ada     blank
   8 ada     code                     begin
   9 ada     comment                          -- no variables needed here :)
  10 ada     blank
  11 ada     code                             Put ("Enter your first name> ");
  12 ada     code                             Get_Line (Name, Length);
  13 ada     code                             New_Line;
  14 ada     code                             Put ("Hello ");
  15 ada     code                             Put (Name (1..Length));
  16 ada     code                             Put (", we hope that you enjoy learning Ada!");
  17 ada     blank
  18 ada     code                     end Get_Name;