var
c,gan,xi:char;
ming,name:string;
i,j,k,s,z,n,mo,ban,lun,ans,max:longint;
begin
read(n);
max:=-1;
for i:=1 to n do
begin
s:=0;
j:=0;
repeat
read(c);
inc(j);
if c<>' ' then ming[j]:=c;
until c=' ';
dec(j);
k:=j;
read(mo,ban);
read(c);
read(gan);
read(c);
read(xi);
read(c);
readln(lun);
if (mo>80)and(lun>=1) then inc(s,8000);
if (mo>85)and(ban>80) then inc(s,4000);
if (mo>90) then inc(s,2000);
if (mo>85)and(xi='Y') then inc(s,1000);
if (ban>80)and(gan='Y') then inc(s,850);
if s>max then
begin
max:=s;
name:='';
for j:=1 to k do
name[j]:=ming[j];
z:=k;
end;
inc(ans,s);
end;
for i:=1 to z do
write(name[i]);
writeln;
writeln(max);
write(ans);
end.
测试点1 Accepted / 0ms / 260kB
测试点2 Accepted / 0ms / 260kB
测试点3 Accepted / 0ms / 260kB
测试点4 Accepted / 0ms / 260kB
测试点5 Accepted / 0ms / 260kB
测试点6 Accepted / 0ms / 260kB
测试点7 Accepted / 0ms / 260kB
测试点8 Accepted / 0ms / 260kB
测试点9 Accepted / 0ms / 260kB
测试点10 Accepted / 0ms / 260kB