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

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