飞过海 没水平请不要出来办比赛！浪费别人时间是一件可耻的行为

MS陷阱很严重……

诡异的题目....

怎么做？

BD

我就说不要拿出来……car一定要也没办法……

var

k,i,j,n,zs:longint;

f:array[0..10000001] of longint;

a,t:array[1..100000] of longint;

begin

readln(n,k);

for i:=1 to k do readln(a[i],t[i]);

j:=k;f[n+1]:=0;

for i:=n downto 1 do

begin

f[i]:=maxlongint;

if a[j]i then f[i]:=f

else while a[j]=i do

begin

zs:=t[j]+f[i+t[j]];

if zs