9 lines
207 B
ObjectPascal
9 lines
207 B
ObjectPascal
|
begin
|
||
|
|
var seq1 := Range(1, 3)+2;
|
||
|
|
var arr := seq1.ToArray;
|
||
|
|
assert(arr[3] = 2);
|
||
|
|
seq1 := 2+Range(1, 3);
|
||
|
|
assert(seq1.First = 2);
|
||
|
|
seq1 := Range(1, 3)+Range(4, 6);
|
||
|
|
assert(seq1.Last = 6);
|
||
|
|
end.
|