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

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