12 lines
194 B
ObjectPascal
12 lines
194 B
ObjectPascal
var arr : array[1..3] of integer;
|
|
s : set of integer;
|
|
begin
|
|
arr[1] := 1;
|
|
arr[2] := 2;
|
|
arr[3] := 3;
|
|
foreach i : integer in arr do
|
|
begin
|
|
Include(s,arr[i]);
|
|
end;
|
|
assert(s=[1,2,3]);
|
|
end. |