有47人。
35号不在，然后随机两人一组，不能有人重复
而且22号要和4号一起

求私

var
a:array[1..47]of longint;
x,i,y:longint;
f:boolean;
function check:boolean;
var
i:longint;
begin
check:=true;
for i:=1 to 47 do
if a[i]=0 then exit(false);
end;
begin
a[35]:=1;a[4]:=1;a[22]:=1;
randomize;f:=false;
while check=false do
begin
y:=random(10)+1;
if (y=2)and(f=false) then begin f:=true;writeln('4 22');end;
for i:=1 to 2 do
begin
repeat
x:=random(47)+1;
until a[x]=0;
write(x,' ');
a[x]:=1;
end;
writeln;
end;
end.

Var
　a:array[1..47]of longint;
　i,x:longint;
Begin
　randomize;
　a[4]:=22;a[22]:=-1;a[35]:=-1;
　for i:=1 to 47 do
　　if a[i]=0 then
　　begin
　　　repeat
　　　　x:=random(47)+1;
　　　until(x<>i)and(a[x]=0);
　　　a[i]:=x;a[x]:=-1;
　　end;
　for i:=1 to 47 do
　　if a[i]>0 then writeln(i,' ',a[i]);
　readln;
End.