Описать функцию FillStr(S,Len) строкового типа, возвращающую строку длинны Len, заполненную повторяющимися копиями строки-шаблона S ( последняя копия строки-шаблона может входить в результирующую строку частично).

function FillStr(S:string;Len:integer):String;
begin
  var k:=Len div S.Length;
  if k>0 then Result:=S*k else Result:='';
  k:=Len-k*S.Length;
  if k>0 then Result+=S[:k+1]
end;

begin
  Writeln(FillStr('Это тест!',23))
end.


Это тест!Это тест!Это т