.. code:: ada

   with Ada.Text_IO; use Ada.Text_IO;
   procedure Operations is
   
      type Boolean_Array_T is array (0 .. 15) of Boolean;
      Bool1, Bool2, Bool3 : Boolean_Array_T;
   
      type Integer_Array_T is array (1 .. 100) of Integer;
      Int1, Int2 : Integer_Array_T;
   
      Str1 : String (1 .. 10) := (others => 'X');
      Str2 : String (2 .. 9)  := (others => '-');
   
      Flag : Boolean;
   
   begin
   
      Bool3 := Bool1 or Bool2;
      Flag  := Int1 > Int2;
      Put_Line (Flag'Image);
   
      declare
         Str3 : String := Str1 & Str2;
      begin
         Str3
           (Str3'First .. Str3'First + 1) := "**";
         Str3 (1 .. 4)                    := Str1 (1 .. 2) & Str2 (8 .. 9);
         Put_Line (Str3);
      end;
   
      if Int1 (1) in Bool3'Range then
         Bool3 (Int1 (1)) := Int1 (1) > Int2 (1);
         Put_Line (Boolean'Image (Bool3 (Int1 (1))));
      end if;
   
   end Operations;
