Program Mmmaa;

const n=10;

var a,b,c:array [1..n] of integer;
    i,k:byte;
    many_a,many_b,many_c:set of shortint;

Begin
Many_A:=[];
Writeln('Массив А: ');
for i:=1 to n do
    Begin
    A[i]:=(-50)+Random(101);
    Many_A:=Many_A+[A[i]];
    Write(A[i]:5);
    end;
Writeln;

Many_B:=[];
Writeln('Массив B: ');
for i:=1 to n do
    Begin
    B[i]:=(-50)+Random(101);
    Many_B:=Many_B+[B[i]];
    Write(B[i]:5);
    end;
Writeln;

Many_C:=Many_A*Many_B;
Many_B:=[];
K:=0;

for i:=1 to n do if (A[i] in Many_C) and not (A[i] in Many_B) then
                                                      Begin
                                                  Inc(k);
                                                      Many_B:=Many_B+[A[i]];
                                                      C[k]:=A[i];
                                                      end;

Writeln('Массив C: ');
if (k = 0) then Writeln('Элементов в массиве нет!')
           else for i:=1 to k do Write(C[i]:5);
Writeln;
end.