Program peresdacha;
uses crt;
type
    radok=array [1..1] of integer;
    Pradok=^radok;
    Ptrmas=array [1..1] of Pradok;
    Ptr=^Ptrmas;
var A:Ptr;
    n,m:integer;
    f:text;
    result : boolean;

procedure GetMemory(var A:Ptr;n:integer);
var i:integer;
begin
 GetMem(A,n*SizeOf(Ptr));
  for i:=1 to n do
   GetMem(A^[i],n*SizeOf(integer));
end;

procedure FreeMemory(var A:Ptr;n:integer);
var i:integer;
begin
 for i:=1 to n do
 FreeMem(A^[i],n*SizeOf(integer));
  FreeMem(A,n*SizeOf(Ptr));
end;

procedure Init(var A:Ptr;namef:string;n:integer);
var t:text;
    i,j,b:integer;
begin
 assign(t,namef);
 reset(t);
 read(t,b);
 for i:=1 to n do
  for j:=1 to n do
   read(t,A^[i]^[j]);
    close(t);
end;

procedure Show(A:Ptr;n:integer);
var i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(A^[i]^[j]:5);
    writeln;
  end;
end;

procedure Work(A:Ptr; n:integer; var result:boolean);
var i,j:integer;
begin
 result:=true;
  for i:=1 to n-1 do
   begin
    for j:=1 to n-i do
     begin
      if A^[i]^[j]<>A^[n-j+1]^[n-i+1] then
       begin
        result:=false;
        exit;
       end;
     end;
   end;
if result then writeln('simetr') else writeln('net');
end;

BEGIN
ClrScr;
assign(f,'f.txt');
reset(f);
read(f,n);
close(f);
GetMemory(A,n);
Init(A,'f.txt',n);
Show(A,n);
writeln;
Work(A,n,result);
Readln;
FreeMemory(A,n);
END.