7 lines
114 B
ObjectPascal
7 lines
114 B
ObjectPascal
function MyReadInteger := 1;
|
|
|
|
begin
|
|
var s: Set of Integer;
|
|
Include(s, MyReadInteger);
|
|
Assert(s=[1]);
|
|
end. |