program HelloWorld(output);
const
  n=20;
var
  c: array[1..n, 1..n] of integer;
  i,x,y, j, k, ii, jj: integer;

begin
  randomize;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      c[i, j] := random(50);
      write(c[i, j]:4);
    end;
    writeln;
  end;
  
  for i := 1 to 10 do 
  begin
    for j := 1 to 10 do
    begin
      k := c[i, j];
      for jj := j + 1 to 10 do
      begin
        if (c[i, jj] = k) then 
          writeln('ar[', i, ',', j, ']=', k, ' equal ar[', i, ',', jj, ']=', c[i, jj]);
      end;
      for ii := i + 1 to 10 do
      begin
        for jj := 1 to 10 do
          if (c[ii, jj] = k) then
          begin
            writeln('ar[', i, ',', j, ']=', k, ' equal ar[', ii, ',', jj, ']=', c[ii, jj])
          end;
      end;
    end;
  end;
  readln;
end.