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