program setest(input,output);
writeln('Enter a number between 2 and 41.');
writeln('Numbers 2, 10..12, 17, and 37 print "false" all others "true".');
write('The set opcodes work :');
if set1-set2 <> [5..9,11..15] then
set2 := ptr^ + [10..12,17];
if ptr^ * set1 = set1 then
if (17 in [10..13,15..20,25..30]) and
(not (22 in [1..17,36..41])) then