na:string[20];

v:longint;

q:longint;

g:char;

w:char;

l:longint;

end;

var n:longint;

a:array[1..100] of r;

k:longint;ch:char;

s:longint;

i,j:longint;

m:longint;

st:string;

max:longint;

begin

j:=1;

readln(n);

for i:=1 to n do

begin

read(ch);

while ch<>' 'do begin

a[i].na:=a[i].na+ch;

read(ch);

end;

read(a[i].v);

read(a[i].q);

read(ch);

read(a[i].g);

read(ch);

read(a[i].w);

read(a[i].l);

readln;

end;

s:=0;

m:=0;max:=0;

for i:=1 to n do begin

if(a[i].v>80) and(a[i].l>=1) then s:=s+8000;

if (a[i].v>85) and(a[i].q>80) then s:=s+4000;

if (a[i].v>90) then s:=s+2000;

if (a[i].v>85) and(a[i].w='Y') then s:=s+1000;

if (a[i].q>80) and(a[i].g='Y') then s:=s+850;

m:=m+s;

if s>max then begin

max:=s;st:=a[i].na;end;s:=0;

end;

with a[n] do begin

writeln(st);writeln(max);

end;

writeln(m);

end.