program Project8a;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,j,n,temp:integer;
begin
write('Vvedit dovjynu masyvu N=');
read(n);
for i:=1 to n do begin
writeln('Vvedit ',i,' element masyvu');
readln(a[i]);end;
for I:=2 to n do begin
for j:=n 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 n-1 do
for j:=i+1 to n do begin
if a[i]=a[j] then
writeln('E') else  writeln('Nemae');readln;exit;end;
readln;
end.