program e1001;

var a,c,m:array[1..100]of integer;

b:array[1..100]of string;

i,j,n,v:integer;

s,d:array [1..100]of boolean;

q:string;

begin

assign(input,'e1.in');

assign(output,'e1.out');

reset(input);

rewrite(output);

readln(n);

for i:=1 to n do

begin

read(b[i]);

read(a[i]);

read(c[i]);

read(q);

if q='y' then

s[i]:=true

else s[i]:=false;

read(q);

if q='y' then

d[i]:=true

else d[i]:=false;

readln(m[i])

end;

for i:=1 to n do begin

if (a[i]>80) and (m[i]>=1) then

m[i]:=8000;

if (a[i]>85) and (c[i]>80)then

m[i]:=m[i]+4000;

if (a[i]>90) then

m[i]:=m[i]+2000;

if (d[i]=true) and (a[i]>85)

then m[i]:=m[i]+1000;

if (s[i]=true) and (c[i]>80)

then m[i]:=m[i]+850;

end;

for i:=1 to n-1 do

if m[1]