RosettaCodeData/Task/Repeat-a-string/Ada/repeat-a-string.ada

8 lines
183 B
Ada
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
with Ada.Strings.Fixed; use Ada.Strings.Fixed;
with Ada.Text_IO; use Ada.Text_IO;
procedure String_Multiplication is
begin
Put_Line (5 * "ha");
end String_Multiplication;