-- Chapter 11 - Program 3
with Ada.Text_IO, Ada.Characters.Latin_1;
use Ada.Text_IO;

procedure Concat is

   String4 : STRING(1..4);
   String7 : STRING(1..7);

begin

   String7 := "CAT" & "FISH";                       -- CATFISH
   Put(String7); New_Line;

   String4 := "CAT" & "S";                          -- CATS
   Put(String4); New_Line;

   String4 := "S" & "CAT";                          -- SCAT
   Put(String4); New_Line;

   String7 := String4 & "cat";                      -- SCATcat
   Put(String7); New_Line;

   String7 := "Go" & Ada.Characters.Latin_1.CR & 
                 Ada.Characters.Latin_1.LF & "Car"; -- Go
   Put(String7); New_Line;                          -- Car

   String7(3..5) := "ldb";                          -- Goldbar
   Put(String7); New_Line;

end Concat;




-- Result of execution

-- CATFISH
-- CATS
-- SCAT
-- SCATcat
-- Go
-- Car
-- Goldbar