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