program pr0gr4m;

var
  a : array [1..10] of integer;
  i, j : byte;

begin
  for i := 1 to 10 do begin
    a [i] := Random (20);
    write (a [i], ' ');
  end;
  writeln;
  for i := 1 to 9 do
    for j := i + 1 to 10 do
      if a [i] = a [j] then
        writeln (a [i]);
end.