program dynarray;
 
type TIntArray = array of integer;
 
procedure WriteArray(arr : TIntArray);
var elem : integer;
begin
   for elem in arr do
      Write(elem,', ');
   WriteLn;
end;
 
var lista : TIntArray;
    i : integer;
begin
   SetLength(lista, 5);
   for i := Low(lista) to High(lista) do
      lista[i] := (i+1)*3;
   WriteArray(lista);
 
   SetLength(lista, 8);
   for i := Low(lista) to High(lista) do
      lista[i] := (i+1)*5;
   WriteArray(lista);
 
   SetLength(lista, 3);
   WriteArray(lista);
end.

cHJvZ3JhbSBkeW5hcnJheTsKCnR5cGUgVEludEFycmF5ID0gYXJyYXkgb2YgaW50ZWdlcjsKCnByb2NlZHVyZSBXcml0ZUFycmF5KGFyciA6IFRJbnRBcnJheSk7CnZhciBlbGVtIDogaW50ZWdlcjsKYmVnaW4KICAgZm9yIGVsZW0gaW4gYXJyIGRvCiAgICAgIFdyaXRlKGVsZW0sJywgJyk7CiAgIFdyaXRlTG47CmVuZDsKCnZhciBsaXN0YSA6IFRJbnRBcnJheTsKICAgIGkgOiBpbnRlZ2VyOwpiZWdpbgogICBTZXRMZW5ndGgobGlzdGEsIDUpOwogICBmb3IgaSA6PSBMb3cobGlzdGEpIHRvIEhpZ2gobGlzdGEpIGRvCiAgICAgIGxpc3RhW2ldIDo9IChpKzEpKjM7CiAgIFdyaXRlQXJyYXkobGlzdGEpOwogICAKICAgU2V0TGVuZ3RoKGxpc3RhLCA4KTsKICAgZm9yIGkgOj0gTG93KGxpc3RhKSB0byBIaWdoKGxpc3RhKSBkbwogICAgICBsaXN0YVtpXSA6PSAoaSsxKSo1OwogICBXcml0ZUFycmF5KGxpc3RhKTsKICAgCiAgIFNldExlbmd0aChsaXN0YSwgMyk7CiAgIFdyaXRlQXJyYXkobGlzdGEpOwplbmQu