9 lines
108 B
ObjectPascal
9 lines
108 B
ObjectPascal
begin
|
|
var l: (A,B,C);
|
|
var e := A;
|
|
match e with
|
|
A, B, C: ;
|
|
else
|
|
assert(false);
|
|
end;
|
|
end. |