Dwarf Home

var max,tt,ok,n,i,j:longint;
    s:string;
    nam:array[0..100] of string;
    m:array[1..100,0..5] of longint;
begin
  readln(n);
  for i:=1 to n do begin
    readln(s);
    nam[i]:=copy(s,1,pos(' ',s)-1);
    for j:=1 to 2 do begin
      delete(s,1,pos(' ',s));
      val(copy(s,1,pos(' ',s)-1),m[i,j],ok)
    end;
    for j:=3 to 4 do begin
      delete(s,1,pos(' ',s));
      if copy(s,1,pos(' ',s)-1)='Y'
        then m[i,j]:=1
        else m[i,j]:=0;
    end;
    delete(s,1,pos(' ',s));
    val(s,m[i,5],ok);
  end;
  max:=0;
  tt:=0;
  for i:=1 to n do begin
    if (m[i,1]>80)and(m[i,5]>=1) then inc(m[i,0],8000);
    if (m[i,1]>85)and(m[i,2]>80) then inc(m[i,0],4000);
    if m[i,1]>90 then inc(m[i,0],2000);
    if (m[i,1]>85)and(m[i,4]=1) then inc(m[i,0],1000);
    if (m[i,2]>80)and(m[i,3]=1) then inc(m[i,0],850);
    if m[i,0]>max then begin
      max:=m[i,0];
      nam[0]:=nam[i];
    end;
    inc(tt,m[i,0]);
  end;
  writeln(nam[0]);
  writeln(max);
  writeln(tt);
end.