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.
|