const

n1=8000;

n2=4000;

n3=2000;

n4=1000;

n5=850;

var

n:record

name:string;

jg:integer;

cg:integer;

bg:char;

xb:char;

lw:integer;

end;

mo,i,num,total,bj:longint;

people:string;

begin

readln(num);

for i:=1 to num do

begin read(n.name,n.jg,n.cg,n.bg,n.xb,n.lw);

if (n.jg>80) and (n.lw>0) then mo:=mo+n1;

if (n.jg>85) and (n.cg>80) then mo:=mo+n2;

if n.jg>90 then mo:=mo+n3;

if (n.jg>85) and (n.xb='Y') then mo:=mo+n4;

if (n.cg>80) and (n.bg='Y') then mo:=mo+n5;

total:=total+mo;

if bj<mo then begin bj:=mo; people:=n.name; end;

end;

writeln(people);

writeln(bj);

writeln(total);

end.

请指教啊啊啊！