RosettaCodeData/Task/Loops-For/Ada/loops-for.ada

for I in 1..5 loop
   for J in 1..I loop
      Put("*");
   end loop;
   New_Line;
end loop;