RosettaCodeData/Task/Loops-Foreach/Ada/loops-foreach-2.ada

   for Item of A loop
      Put( Item );
   end loop;