mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 21:13:45 +02:00
25 lines
366 B
ObjectPascal
25 lines
366 B
ObjectPascal
program settest;
|
|
const
|
|
size = 31;
|
|
var
|
|
testset : set of 0..size;
|
|
i : integer;
|
|
begin
|
|
testset := [];
|
|
testset := testset + [0,1,2,3,4];
|
|
if testset <> [0,1,2,3,4] then
|
|
begin
|
|
writeln('add wrong');
|
|
halt(1);
|
|
end;
|
|
testset := testset - [2];
|
|
if testset <> [0,1,3,4] then
|
|
begin
|
|
writeln('sub wrong');
|
|
halt(1);
|
|
end;
|
|
end.
|
|
|
|
|
|
|