9 lines
177 B
ObjectPascal
9 lines
177 B
ObjectPascal
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));
|