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.