program P2;
{$APPTYPE CONSOLE}
var a:array[1..100,1..100] of integer;
b:array[1..10000] of integer;
i,j,m,n,x,temp,k:integer;
begin
writeln('Vvedit m,n masyvu');
readln(m,n);
for i:=1 to m do
for j:=1 to n do begin
writeln('Vvedit ',i,' ',j,' element masyvu');
readln(a[i,j]);end;
for i:=1 to m do
for j:=1 to n do begin
x:=x+1;
b[x]:=a[i,j];end;
{for i:=1 to x do begin
write(b[i],' ');end;}
for I:=2 to x do begin
for j:=x downto i do begin
if b[j-1]>b[j] then begin
temp:=b[j-1];
b[j-1]:=b[j];
b[j]:=temp;end;end;end;
{for i:=1 to x do begin
write(b[i],' ');end;}
for i:=1 to x do
for j:=i+1 to x do begin
if b[i]=b[j] then begin
k:=k+1;end;end;
if k>0 then begin
write('E');end else
write('Nemae');
readln;
end.