编译通过...

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

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

　├ 错误行输出

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

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

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

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

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

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

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

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

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

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

贴不了错的数据出来，， 连续三次了/

标准行输出：30

错误行输出：30

我无语了！

——————————————————附程序

var

a:array[1..5,0..25] of longint;

n1,i,j,n,m,k,q:longint;

procedure aaa(l,w,q1:longint);

var

i1:longint;

begin

if w=0 then

begin

if q1>q then

q:=q1;

exit;

end;

for i1:=l to a do

if w>=a then

aaa(i1+1,w-a,q1+i*a);

if q1>q then

begin

q:=q1;

n1:=w;

end;

end;

begin

readln(n,m);

for i:=1 to m do

begin

readln(j,k);

inc(a[k,0]);

a[k,a[k,0]]:=j;

end;

n1:=n;

for i:=5 downto 1 do

aaa(1,n1,q);

end.