uses Crt;
var  A,B:set of 0..50;
     i,n,m,k:byte;
begin
    ClrScr;
    Randomize;
    repeat
     Write('0<=N<50 ='); Readln(n);
    until (n>=0)and(n<50);
    repeat
     Write('n<M<=50 ='); Readln(m);
    until (n<m)and(m<=50);
    Writeln; Writeln('Mnozhestvo A: ');
    Writeln; A:=[];
    for i:=n to m do
     begin
      A:=A+[i]; Write(i:4);
     end;
    Writeln; Writeln; Writeln('Mnozhestvo B: ');
    Writeln; B:=[];
    for i:=1 to 10 do
     begin
      repeat
       k:=Random(51);
      until ([k]*B)=[];
      b:=b+[k];
     end;
    for i:=0 to 50 do
     if i in B
      then Write(i:4);
    Writeln; Writeln;
    k:=0;
    for i:=0 to 50 do
     if i in B then
      if i in A then
       k:=k+i;
    Writeln('Summa = ',k); Writeln;
    for i:=n to m do
     if ([i]*B)=[] then
      begin
       k:=i; Break;
      end;
     Writeln('Min = ',k);
    Readkey;
end.