6 lines
125 B
ObjectPascal
6 lines
125 B
ObjectPascal
begin
|
|
var Keys := Arr('aa','bb','cc');
|
|
var Values := Arr(1..3);
|
|
var dct := Dict(Keys.Zip(Values));
|
|
dct.Println;
|
|
end.
|