1 2 3 4 5 6 7 8
with Text_IO; use Text_IO; procedure Test is begin for Index in 1..10 loop Put_Line("Hello, World!"); end loop; end;