RosettaCodeData/Task/Loops-For/Ada/loops-for.ada
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

6 lines
93 B
Ada

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