uses crt;
var n,i,j,kt:longint; a:array[1..1000,1..1000]of longint;
b:array[1..10000000]of longint;
begin
clrscr;
    write('n=');readln(n);
    for i:=1 to n do
       for j:=1 to n do
          begin
             write('a[',i,',',j,']=');readln(a[i,j]);
          end;
    for i:=1 to n do for j:=1 to n do inc(b[i],a[i,j]);
    for i:=1 to n do for j:=1 to n do inc(b[n+i],a[j,i]);
    for i:=1 to n do inc(b[n*2+1],a[i,i]);
    for i:=1 to n do inc(b[n*2+2],a[i,n-i+1]);
    for i:=2 to n*2+2 do if b[i]<>b[i-1] then kt:=1;
    writeln(kt=0);
readln
end.