Const
 N=8;
Var
 A:Array [1..N,1..N] of Integer;
 i,j,i1,j1:Byte;
 M:Integer;

Begin
 Randomize;
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=Random(100);
     write(A[i,j]:5);
    end;
   writeln;
  end;
 Writeln;
 M:=0;
 for i1:=1 to N do
  for j1:=1 to N do
   for i:=1 to N do
    for j:=1 to N do
     if (A[i,j]=A[i1,j1]) and ((i<>i1) or (j<>j1)) and (A[i,j]>M) then M:=A[i,j];
 Writeln('Max = ',M);
 Readln
End.