测试数据 01：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 02：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 03：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 04：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 05：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 06：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 07：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 08：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 09：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 10：运行时错误...| 错误号: 106 | 无效数字格式

var s1,s2,s3,n,i:byte;

ch,a1,a2:char;

s,sum,smax:dword;

calling,renming:string[20];

begin

readln(n);

s:=0;

sum:=0;

for i:=1 to n do

begin

readln(calling);

readln(s1,s2,a1,a2,s3);

end;

s:=0;

if (s1>80)and(s3>0) then inc(s,8000);

if (s1>85)and(s2>80) then inc(s,4000);

if (s1>90) then inc(s,2000);

if (s1>85)and(a1='yes') then inc(s,1000);

if (s2>80)and(a2='yes') then inc(s,850);

smax:=0;

if s>smax then

begin

smax:=s;

renming:=calling;

end;

inc(sum,s);

writeln(renming);

writeln(smax);

writeln(sum);

end.