Răspuns:
Program MultimiEgale;
var A,B: set of 10..99;
n,m,i,num: integer;
begin
write('Cate elemente are multimea A, n= '); read(n);
writeln('Introduceti elementele multimii A: ');
for i:=1 to n do
begin
read(num);
A:=A+[num];
end;
write('Cate elemente are multimea B, m= '); read(m);
writeln('Introduceti elementele multimii B: ');
for i:=1 to n do
begin
read(num);
B:=B+[num];
end;
if A=B then writeln('Multimile sunt egale')
else writeln('Multimile nu sunt egale');
end.
Explicație: