var

a,b,e,sum:array[1..100]of longint;

i,j,m,n,x,l,k:longint;

f:char;

s,s2:array[1..100]of string;

c,d:array[1..100]of char;

begin

readln(n);

j:=1;

fillchar(sum,sizeof(sum),0);

for i:=1 to n do

begin

s[i]:='';

read(f);

while f' ' do

begin

s[i]:=s[i]+f;

read(f);

end;

read(a[i],b[i]);

read(f);

read(c[i]);

read(f);

read(d[i]);

readln(e[i]);

end;

for i:=1 to n do

begin

if (a[i]>80)and(e[i]>0) then sum[i]:=sum[i]+8000;

if (a[i]>85)and(b[i]>80)then sum[i]:=sum[i]+4000;

if (a[i]>90) then sum[i]:=sum[i]+2000;

if (a[i]>85)and(d[i]='Y')then sum[i]:=sum[i]+1000;

if (b[i]>80)and(c[i]='Y')then sum[i]:=sum[i]+850;

end;

for i:=1 to n do

if x