with Text_IO; use Text_IO; procedure Test is begin for Index in 1..10 loop Put_Line("Hello, World!"); end loop; end;