7 lines
80 B
ObjectPascal
7 lines
80 B
ObjectPascal
|
begin
|
|||
|
|
var l: byte;
|
|||
|
|
l := 1;
|
|||
|
|
match l with
|
|||
|
|
1: Assert(l=1);
|
|||
|
|
end;
|
|||
|
|
end.
|