git.oblomov.eu Git - ohcount/blob - test/src_dir/ada1.adb

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