var n,i,o,c,p,x:integer;
     s:real;
begin
s:=0;p:=0;
readln(n);
for i:=1 to n do begin
readln(o);
s:=s+o;
end;
s:=s/n;
if o = 3 then begin
inc(c);
writeln('None');
end;
if s=5 then if (c<>1) then begin
     inc(p);
     writeln('Named');end;
if s>=4.5 then if (c<>1)and (p<>1) then begin
inc(x);
writeln('High'); end;
if (c<>1) and (p<>1) and (x<>1) then
writeln('Common');
end.

Edited by author 05.04.2018 22:47