var n,a,b,c,d,max,s:int64;f,g:char;e,nam:string;i:integer;
begin
readln(n);
max:=-maxint-1;
for i:=1 to n do
begin
readln(e,a,b,f,g,d);
if (a>80) and (d>=1) then
s:=s+8000;
if (a>85) and (b>80) then
s:=s+4000;
if a>90 then s:=s+2000;
if (a>85) and (g='Y') then
s:=s+1000;
if (b>80) and (f='Y') then
s:=s+850;
c:=c+s;
if s>max then
begin
max:=s;nam:=e;
end;
end;
writeln(nam);
writeln(max);
writeln(c);
end.

怎么输入名字啊???