program mn;
uses crt;
var a:array[1..100,1..100]of integer;
i,j,n,s,l,k:integer;
BEGIN ClrScr;
randomize;
n:=3;
for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(2);
Write(a[i,j]:4);
end;
writeln;
end;
l:=1;
while l<=n do begin s:=0;
for i:=l+1 to n do if a[l,i]=a[i,l] then inc(s);
if s=n-l then inc(k);
inc(l);
end;
if k=n then writeln('Simetri4na') else writeln('Ne simetri4na');
readln;
END.