program tt(input,output);

tpye

stu=record

name:string[20];

qm:1..100;

bp:1..100;

gb:char;

xb:char;

lunwen:1..10;

jiangjin:longint;

var

a:array[1..100] of stu;

n,p,snm,code,k,1:ingeter;

max:int64;

s:string;

begin

writeln;

read(n);

for i:=1 to n do

begin

readln(s);

with a[i] do

begin

pos(' ',s,p);

name:=copy(s,1,p-1);

delete(s,1,p);

pos(' ',s,p);

val(copy(s,i,p-1),qm,code);

delete(s,1,p);

pos(' ',s,p);

val(copy(s,i,p-1),bp,code);

delete(s,1,p);

gb:=s[1];

xb:=s[3];

delete(s,1,4);

val(s,lunwen,code);

jiangjin:=0;

end;

end;

max:=-maxint;

sum:=0;

for i:=1 to n do

begin

with a[i] do

begin

if(qm>80) and (lunwen>=1) then jiangjin:=jiangjin+8000;

if(qm>85) and (bp>80) then jiangjin:=jiangjin+4000;

if(qm>90) then jiangjin:=jiangjin+2000;

if(qm>85) and (xb='Y') then jiangjin:=jiangjin+1000;

if(bp>80) and (gb='Y') then jiangjin:=jiangjin+850;

end;

if a[i].jiangjin > max then begin

max:=a[i].jiangjin;

k:=1;

end;

snm:=sum+a[i],jiangjin;

end;

writeln(a[k].name);

writeln(max);

writeln(snm);

end.