随手编一下：
program rad(input,output);
var
s:set of 1..33;
i,x:integer;
begin
randomize;
s:=[1,2,3..33];
for i:=1 to 6 do
begin
x:=random(32)+1;
while (x in s) do x:=random(32)+1
write(x,' ');
x:=x-[s];
end;
writeln;
end.本回答被提问者采纳

001双 {MOD}球富翁 8.5B.2007-4-25
专业的双 {MOD}球彩票过滤软件,软件拥用国外的先进算法,并拥有 AC,奇偶,号码和值等多达十几项条件过滤集于一身，让你每次投注都可大大地帮你节省一笔可观的资金。该软件操作简单,一看就会,是一款双 {MOD}球彩民不容错过的选号工具．如果你是经常买双 {MOD}球的彩民,现在就马上下载使用吧.
下载地址

数学家彩票选号分析组合系统 3.11 For Win2k/Xp