Nokard1221 Var  i, j, kolvo:Integer;  a, b:array[1..10] of Integer;begin;  randomize;    {Заполнение массивов}  for i:=1 to 10 do begin;    a[i] := random(0, 10);    b[i] := random(0, 10);  end;    {Вывод массива a}  write('Массив a = [', a[1]);  for i:=2 to 10 do begin;    write(', ', a[i]);  end;  writeln('];');  {Вывод массива b}  write('Массив b = [', b[1]);  for i:=2 to 10 do begin;    write(', ', b[i]);  end;  writeln('];');    {Непосредственно нахождение кол-ва уникальных элементов}  kolvo:=0;  for i:=1 to 10 do begin;     for j:=1 to 10 do begin;        if(a[i] = b[j]) then break;        if(j=10)then Inc(kolvo);     end;  end;  for i:=1 to 10 do begin;     for j:=1 to 10 do begin;        if(b[i] = a[j]) then break;        if(j=10)then Inc(kolvo);     end;  end;  writeln('Количество уникальных элементов массива: ', kolvo,'.');end.

Результат:
Массив a = [8, 10, 4, 9, 0, 1, 5, 8, 9, 8];Массив b = [4,   0, 1, 5, 6, 2, 2, 1, 3, 9];Количество уникальных элементов массива: 8.
Выглядит правдоподобно, но не проверял.