For

for Index in 1 .. 14 loop
   Put_Line( Integer'Image (Index) );
   end loop;              

For_Loop_Name : for Index in 1 .. 14 loop
   --.Do_Something(Index).--
   end loop For_Loop_Name;      

for Index in reverse 1 .. 14 loop
   --.Index.--
   end loop;     

for Index in Integer range 1 .. N loop
   --.Index.--
   end loop;  

for Index in MyType’Range loop
   --.Index.--
   end loop;

for Index in reverse MyType’Range loop
   --.Index.--
   end loop;

for Index in Integer’Range loop
   --.Index.--
   end loop;

Arr: Int_Array := (1, 2, 3 ,5);
…
for Elem of Arr loop
   Put(Elem); --> "1235"
   end loop;

Arr: Int_Array := (1, 2, 3 ,5);
…
for Index in Arr'Range loop
   --.Arr(Index).--
   end loop;

type Range_Type is range -5 .. 10;
...
for A in Range_Type loop
  -- ... --
  end loop;

-- declare
-- Day : Day_t; 
-- begin
for Day in Mon .. Fri loop
   --.Day. No need to specify Sat or Sun--
   end loop;  
--end;

for Day in Day_Type loop
   --.Day.--
   end loop;

for ii in reverse 1..10 loop
    I_IO.Put(ii, Width => 3);
    end loop;

for ii in 0..9 loop
    I_IO.Put(10-ii, Width => 3);
end loop;

For char in 'a'..'z' loop
   put(char);
   End Loop;