const n=40;
var x:array of integer;
a,b,c:array of integer;
t,s:array of integer;
m,i,j,h:integer;
f:boolean;


procedure mass(k: array of integer; y: array of integer);
var i,j:integer;
begin
writeln;

setlength(y,21);
m:=1;


y[1]:=k[random(40)+1]; 
for i:=1 to 20 do
begin
repeat
f:=false;
h:=k[random(40)+1];
for j:=1 to m do
if y[j]=h then f:=true;
until f=false;
y[i]:=h;
m:=m+1; 

end;

end;

begin
setlength(x,41);
setlength(a,21);
setlength(b,21);
setlength(c,21);
setlength(t,41);
setlength(s,41);
randomize;
write('X:');
m:=1;
x[1]:=random(n)+1;
for i:=1 to n do
begin
repeat
f:=false;
h:=random(n)+1;
for j:=1 to m do
if x[j]=h then f:=true;
until f=false;
x[i]:=h;
m:=m+1;
write(x[i]:4);
end;

mass(x,a);



writeln;
write('A:');
for i:=1 to 20 do
write(a[i]:4);



mass(x,b);
writeln;

write('B:');
for i:=1 to 20 do
write(b[i]:4);

mass(x,c);
writeln;
write('C:');
for i:=1 to 20 do
write(c[i]:4);

writeln;
write('T:');
for i:=1 to 2 do
begin
repeat
f:=false;
h:=b[i];
for j:=1 to m do
if c[j]=h then f:=true;
until f=false;
t[i]:=h;
m:=m+1;
write(t[i]:4);
end; 




end.