Определить, в каком из множеств больше элементов, не принадлежащих другому множеству - Turbo Pascal - Ответ 11925880

uses crt;
type mnz=set of 10..60;
var a,b:mnz;
    n,m,i,k,ka,kb:byte;
begin
clrscr;
repeat
write('Введите мощность множества А от 10 до 20 n=');
readln(n);
until n in [10..20];
repeat
write('Введите мощность множества B от 10 до 20 m=');
readln(m);
until m in [10..20];
randomize;
a:=[];
for i:=1 to n do
 begin
  repeat
  k:=10+random(51);
  until not (k in a);
  a:=a+[k];
 end;
b:=[];
for i:=1 to m do
 begin
  repeat
  k:=10+random(51);
  until not (k in b);
  b:=b+[k];
 end;
writeln('Множество А');
for i:=10 to 60 do
if i in a then write(i:3);
writeln;
writeln('Множество B');
for i:=10 to 60 do
if i in b then write(i:3);
writeln;
ka:=0;
kb:=0;
for i:=10 to 60 do
if (i in a) and not(i in b) then inc(ka)
else if (i in b) and not(i in b) then inc(kb);
if ka>kb then writeln('В множестве А больше элементов не принадлежащих В')
else if kb>ka then writeln('В множестве B больше элементов не принадлежащих A')
else writeln('В обоих множествах одинаковое число элементов, не принадлежащих другому множеству');
a:=a-b;
writeln('Элементы множества В удалены из множества А');
for i:=10 to 60 do
if i in a then write(i:3);
readln
end.