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
3, 6, 9, 12, 15,
5, 10, 15, 20, 25, 30, 35, 40,
5, 10, 15,