var

a:array[0..100,0..7] of string;

ans:array[0..100] of longint;

t:int64;

s:string;

n,i,j,l,q:longint;

begin

readln(n);

for i:=1 to n do begin

readln(s);

s:=s+' ';

q:=0;

while s'' do begin

l:=pos(' ',s);

inc(q);

a:=copy(s,1,l-1);

delete(s,1,l);

end;

str(i,s);

a:=s;

end;

for i:=1 to n do begin

if (a>'80') and (a>='1') then inc(ans[i],8000);

if (a>'85') and (a>'80') then inc(ans[i],4000);

if a>'90' then inc(ans[i],2000);

if (a>'85') and (a='Y') then inc(ans[i],1000);

if (a>'80') and (a='Y') then inc(ans[i],850);

end;

for i:=1 to n-1 do begin

for j:=i+1 to n do begin

if ans[i]