2024-12-10 10:59:20 +03:00
|
|
|
|
uses typedconst2u;
|
2015-05-14 22:35:07 +03:00
|
|
|
|
begin
|
|
|
|
|
|
assert(a=[1..4]);
|
|
|
|
|
|
assert(2 in a);
|
|
|
|
|
|
assert(b.b[1]=3);
|
|
|
|
|
|
assert(c[2]='c');
|
|
|
|
|
|
assert(d[2]=1.5);
|
|
|
|
|
|
assert('b' in e);
|
|
|
|
|
|
assert(e=['a','b','c']);
|
|
|
|
|
|
assert(f=two);
|
|
|
|
|
|
assert(one in g);
|
2024-12-10 10:59:20 +03:00
|
|
|
|
assert(g=SetOf(one,three));
|
2015-05-14 22:35:07 +03:00
|
|
|
|
assert(h=one);
|
|
|
|
|
|
assert(i=3);
|
|
|
|
|
|
assert(j[3]=2.6);
|
|
|
|
|
|
assert(k=two);
|
|
|
|
|
|
assert(three in l);
|
2024-12-10 10:59:20 +03:00
|
|
|
|
assert(l=SetOf(one,three));
|
2015-05-14 22:35:07 +03:00
|
|
|
|
assert(m.b[1]=3);
|
|
|
|
|
|
assert(n[1,2]=2);
|
|
|
|
|
|
end.
|
