├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 9ms

├ 测试数据 03：答案正确... 25ms

├ 测试数据 04：答案正确... 25ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 9ms

├ 测试数据 11：答案正确... 41ms

├ 测试数据 12：答案正确... 0ms

├ 测试数据 13：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 14：答案正确... 0ms

├ 测试数据 15：答案正确... 25ms

├ 测试数据 16：答案正确... 0ms

├ 测试数据 17：答案正确... 0ms

├ 测试数据 18：答案正确... 0ms

├ 测试数据 19：答案正确... 25ms

├ 测试数据 20：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：95 有效耗时：159ms

var

a,b:array[1..10000] of ansistring;

c:array[1..10000] of longint;

i,j,n,ans,s,e:longint;

d:string;

begin

readln(n);

for i:=1 to n do readln(a[i]);

ans:=1;

for i:=1 to n do begin

if length(a[i]) >7 then

while jlength(a[i])-7 do begin

j:=j+1;

d:=copy(a[i],j,8);

if (d='reioxzsj') then begin b[ans]:=a[i];ans:=ans+1;j:=length(a[i])-7; end;

end;

j:=0;

end;

for i:=1 to ans do begin

for j:=1 to length(b[i])-2 do begin

d:=copy(b[i],j,3);

if d='woc' then c[i]:=c[i]+5;

end;

end;

for i:=1 to ans do begin

for j:=1 to length(b[i]) do begin

d:=copy(b[i],j,1);

if (d='r') or (d='p') then c[i]:=c[i]+5;

end;

for j:=1 to length(b[i])-1 do begin

d:=copy(b[i],j,2);

if (d='pr') then c[i]:=c[i]+20;

end;

end;

s:=-100000;

for i:=1 to ans do begin

if c[i]>s then begin s:=c[i]; e:=i; end;

end;

writeln(b[e]);

writeln(s);

end.

!!!!