var
i,j,n,max:longint;
s:int64;
lolo:string;
c:char;
qimo,banji,lunwen,jianjin:array [1..100] of longint;
nam:array [1..100,1..100] of char;
ganbu,xibu:array [1..100] of char;
procedure jianli(i:longint);
begin
if (qimo[i]>80) and (lunwen[i]>0) then jianjin[i]:=jianjin[i]+8000;
if (qimo[i]>85) and (banji[i]>80) then jianjin[i]:=jianjin[i]+4000;
if qimo[i]>90 then jianjin[i]:=jianjin[i]+2000;
if (qimo[i]>85) and (xibu[i]='Y') then jianjin[i]:=jianjin[i]+1000;
if (banji[i]>80) and (ganbu[i]='Y') then jianjin[i]:=jianjin[i]+850;
end;
begin

read(n);
for i:=1 to n do
begin
j:=0;
repeat
inc(j);
read(nam[i][j]);
until nam[i][j]=' ';
read(qimo[i],banji[i]);
read(c);
read(ganbu[i]);
read(c);
read(xibu[i],lunwen[i]);
jianli(i);
s:=s+jianjin[i];
end;
for i:=n downto 1 do
if max<=jianjin[i] then begin max:=jianjin[i];lolo:=nam[i]; end;
i:=1;
while lolo[i]<>' ' do
begin
write(lolo[i]);
inc(i);
end;
writeln();
writeln(max);
writeln(s);

end.

已过

细节问题，一般过了样例都是悲剧的开始，自己好好检查一下吧，看着看着你就知道哪里有问题了

。。。。。。

我也是，不可思议

坑爹的pascal 字符串