:program jiangxuejin；

var p,s1,s2,q:array[1..200]of char； bk:char；

h, b, n,i,j,k:integer； max:longint；

xingming:array[1..200]of string；

a3 ,a1,a2,sum:array[1..200]of longint；

Begin

readln(n)； fillchar(sum,sizeof(sum),0)；

For i:=1 to n do begin

k:=0；

repeat k:=k+1；read(p[k])；xingming[i]:=xingming[i]+p[k]； until(p[k]=’ ’)；

readln(a1[i],a2[i],bk,s1[i],bk,s2[i],a3[i])；end；

For i:=1 to n do begin

If (a1[i]>80)and(a3[i]>=1)then sum[i]:=sum[i]+8000；

If (a1[i]>85)and(a2[i]>80)then sum[i]:=sum[i]+4000；

If (a1[i]>90)then sum[i]:=sum[i]+2000；

If (a1[i]>85)and(s2[i]=’y’)then sum[i]:=sum[i]+1000；

If (a2[i]>80)and(s1[i]=’y’)then sum[i]:=sum[i]+850；

max:=max+sum[i]；

end；

b:=0；

For i:=1 to n do

If (b< sum[i]) then begin b:=sum[i]；h:=i； end；

writeln(xingming[h])；writeln(sum[h])；writeln(max)；

end.