type student=record

sname: array [1..30] of char;

chengji:integer;

banchengji:integer;

ganbu:string[1];

xibu:string[1];

lunwen:integer;

end;

var i,n,m,g,s,k:longint;

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

jiangjing:array [1..100] of longint;

begin

k:=1;

readln(n);

for i:=1 to n do

with stu[i] do

begin

repeat read(sname[k]); k:=k+1;

until sname[k]=' ';

read(chengji,banchengji,ganbu,xibu,lunwen);readln;

end;

for i:= 1 to n do

with stu[i] do

begin

if (chengji>80) and (lunwen>0) then jiangjing[i]:=jiangjing[i]+8000;

if (chengji>85) and (banchengji>80) then jiangjing[i]:=jiangjing[i]+4000;

if chengji>90 then jiangjing[i]:=jiangjing[i]+2000;

if (chengji>85) and (xibu='Y') then jiangjing[i]:=jiangjing[i]+1000;

if (banchengji>80) and (ganbu='Y') then jiangjing[i]:=jiangjing[i]+850;

end;

m:=0;

for i:=1 to n do

if m<jiangjing[i] then

begin

m:=jiangjing[i];

g:=i;

end;

for i:=1 to n do

s:=s+jiangjing[i];

for i:=1 to 20 do

begin

if stu[g].sname=' ' then break;

write(stu[g].sname[i]);

end;

writeln;

writeln(jiangjing[g]);

writeln(s);

end.