编译通过...

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

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

Unaccepted 有效得分：20 有效耗时：0ms

program p1066;

type ur=record

x,y:integer;

end;

var n,i,i2:integer;

s:array [1..15000] of ur;

ans:array [0..15000] of integer;

res:array [1..32000] of integer;

procedure jh(var q,q2:ur);

var q3:ur;

begin

q3 := q2;

q2 := q;

q := q3;

end;

function sum(q:integer):integer;

var j,l:integer;

begin

l := 0;

for j := 1 to q do l := l + res[j];

exit(l-1);

end;

begin

readln(n);

fillchar(res,sizeof(res),0);

fillchar(ans,sizeof(ans),0);

readln(s[1].x,s[1].y);

for i := 2 to n do begin

i2 := i;

readln(s[i].x,s[i].y);

while (i2>1)and(s[i2].y