-- Chapter 11 - Programming exercise 1
with Ada.Text_IO;
use Ada.Text_IO;

procedure Ch11_1 is

First_Name : constant STRING := "John";
Last_Name  : constant STRING := "Doe";
Full_Name  : STRING(1..8);

begin

   Full_Name := First_Name & ' ' & Last_Name;
   Put_Line(Full_Name);

end Ch11_1;




-- Result of execution

-- John Doe