var n,i,j,k,g,b,c:integer;a:array[1..20,1..20]of integer;beginreadln(n);for i:=1 to 2*n dobeginfor j:=1 to n do
read(a[i,j]);
readln;end;k:=0;g:=0;b:=0;c:=0;for i:=1 to n dofor j:=1 to n do
begin
if a[i,j]=a[i+n,j] then k:=k+1;
if a[i,j]=a[n+j,n+1-i] then g:=g+1;
if a[i,j]=a[2*n+1-i,n+1-j]...
|
