编译通过...

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

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

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

　├ 错误行输出

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

　├ 错误行输出

├ 测试数据 10：内存溢出...

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

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

const max=5000;

var

time,min,n,m,x,y,s,t,k,i,j:longint;

c,d:integer;

a:array[0..max,0..max] of longint;

b:array[0..max,0..max] of longint;

p:array[0..max] of boolean;

procedure run(x:longint);

var i,j:integer;

begin

if x=t then

begin

if min=time then exit;

for i:=x+1 to n do

if (p[i]) and (a[x,i]-1) and (k-a[x,i]>=0) and (min+b[x,i]