How to multiply a string?

General
8 
procedure Output_Triangle (Num_Lines : in Positive) is
begin
   for N in 1 .. Num_Lines loop
      Ada.Text_IO.Put_Line (Item => (1 .. N => '+') );
   end loop;
end Output_Triangle;
1 Like