program jiang；

var

g,h,z:string；a,b,c,d,i,m,n,k,j:longint；e,f,l,y:char；

begin

m:=0；n:=0；

readln(a)；

for i:=1 to a do

begin

k:=0；

g:=z；read(l)；g:=g+l；

begin

while l<>’ ’do begin read(l)； g:=g+l；end；end；

read(b)；

read(c)；

read(y)；

read(e)；

read(y)；

read(f)；

read(d)；

if (b>80) and (d<>0) then k:=k+8000；

if (b>85) and (c>80) then k:=k+4000；

if b>90 then k:=k+2000；

if (b>85) and (f=’Y’) then k:=k+1000；

if (c>80) and (e=’Y’) then k:=k+850；

if k>m then begin m:=k；

h:=copy(g,1,length(g)- 1)；end；n:=n+k；end；

writeln(h)；writeln(m)；writeln(n)；

end.

答案一模一样 空格都没有 可是过不了 郁闷啊.....

。。。