10 lines
177 B
Text
10 lines
177 B
Text
|
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));
|