Initial data commit

Task/Repeat-a-string/Delphi/repeat-a-string-1.delphi

@@ -0,0 +1,9 @@
+function RepeatString(const s: string; count: cardinal): string;
+var
+  i: Integer;
+begin
+  for i := 1 to count do
+    Result := Result + s;
+end;
+
+Writeln(RepeatString('ha',5));

Task/Repeat-a-string/Delphi/repeat-a-string-2.delphi

@@ -0,0 +1 @@
+Writeln( StringOfChar('a',5) );

Task/Repeat-a-string/Delphi/repeat-a-string-3.delphi

@@ -0,0 +1,7 @@
+function RepeatStr(const s: string; i: Cardinal): string;
+begin
+  if i = 0 then
+    result := ''
+  else
+   result := s + RepeatStr(s, i-1)
+end;

Task/Repeat-a-string/Delphi/repeat-a-string-4.delphi

@@ -0,0 +1 @@
+StrUtils.DupeString