var i,j,sum,max,n,m:longint;
    qimo,pingyi,lunwen:integer;
    ganbu,xibu:string;
    maxn,s:string[35];
    name1,name2:string;
begin
    {assign(input,'scholar.in');
    assign(output,'scholar.out');
    reset(input);
    rewrite(output);}
    readln(n);
    max:=0;
    sum:=0;
    for i:=1 to n do
      begin
        readln(s);
        j:=pos(' ',s);
        name1:=copy(s,1,j-1);
        delete(s,1,j);
        j:=pos(' ',s);
        val(copy(s,1,j-1),qimo);
        delete(s,1,j);
        j:=pos(' ',s);
        val(copy(s,1,j-1),pingyi);
        delete(s,1,j);
        ganbu:=copy(s,1,1);
        xibu:=copy(s,3,1);
        delete(s,1,4);
         val(s,lunwen);
         m:=0;
         if (qimo>80)and(lunwen>=1) then m:=m+8000;
            if (qimo>85)and(pingyi>80) then m:=m+4000;
            if qimo>90 then m:=m+2000;
            if (qimo>85)and(xibu='Y') then m:=m+1000;
            if (pingyi>80)and(ganbu='Y') then m:=m+850;
            sum:=sum+m;
            if m>max then
               begin
                  max:=m;
                  maxn:=name1;
              end
       end;
     writeln(maxn);
     writeln(max);
     writeln(sum);
{     close(input);
     close(output);}
end.
/**************************************************************
	Problem: 2256
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/