program bilet30;
type multime=set of byte;
var a,b,c,d:multime;
    x,p,q,t,k,i:integer;
begin
a:=[];
write('cardinalul lui a este '); readln(p);
for i:=1 to p do begin
write(' elementul ',i,' este ');
readln(x);
a:=a+[x];
end;
b:=[];
write('cardinalul lui b este '); readln(q);
for i:=1 to q do begin
write(' elementul ',i,' este ');
readln(x);
b:=b+[x];
end;
writeln(' multimea a este ');
for i:=1 to 255 do
if i in a then write(i,';');
writeln;
writeln(' multimea b este ');
for i:=1 to 255 do
if i in b then write(i,';');
writeln;
c:=a*b;
d:=b-a;
t:=0;
k:=0;
writeln(' multimea A intersectat cu B este ');
for i:=1 to 255 do
if i in c then begin
t:=t+1;
write(i,';');
end;
writeln;
writeln( 'cardinalul intersectiei este ',t);
writeln(' multimea B\A este ');
for i:=1 to 255 do
if i in d then begin
k:=k+1;
write(i,';');
end;
writeln;
writeln( 'cardinalul diferentei este ',k);
readln;
end.