t_id
893
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
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.