var s,s1,s2,sss,max,i,n:longint;
    st,st1,gb,xb:string;
    xm:array[1..101] of string;
    ss:array[1..101] of longint;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(st);
    xm[i]:=copy(st,1,pos(' ',st)-1);
    delete(st,1,pos(' ',st));
    st1:=copy(st,1,pos(' ',st)-1);
    val(st1,s);
    delete(st,1,pos(' ',st));
    st1:=copy(st,1,pos(' ',st)-1);
    delete(st,1,pos(' ',st));
    val(st1,s1);
    gb:=copy(st,1,pos(' ',st)-1);
    delete(st,1,pos(' ',st));
    xb:=copy(st,1,pos(' ',st)-1);
    delete(st,1,pos(' ',st));
    val(st,s2);
    if (s>80) and (s2>=1) then ss[i]:=ss[i]+8000;
    if (s>85) and (s1>80) then ss[i]:=ss[i]+4000;
    if s>90 then ss[i]:=ss[i]+2000;
    if (s>85) and (xb[1]='Y') then ss[i]:=ss[i]+1000;
    if (s1>80) and (gb[1]='Y') then ss[i]:=ss[i]+850;
    sss:=sss+ss[i];
    if ss[i]>max then max:=ss[i];
  end;
  for i:=1 to n do
  begin
    if max=ss[i] then
    begin
      writeln(xm[i]);
      writeln(ss[i]);
      writeln(sss);
    end;
  end;
end.