书本整理

书本整理
Time Limit:10000MS  Memory Limit:65536K
Total Submit:24 Accepted:16 
Case Time Limit:1000MS
Description
小明的书架上放了很多书，为了使书架变得整洁，小明决定整理书架，他将所有书安高度大小排列，这样排了之后虽然整齐了许多，但小明发现，书本的宽度不同，导致书架看上去还是有些凌乱。小明将这个凌乱值定义为相邻两本书的宽度差的绝对值的和。 
例如有4本书 
1*2 
5*3 
2*4 
3*1 
小明将其排列整齐后的顺序是： 
1*2 
2*4 
3*1 
5*3 
凌乱值为2+3+2=7。 
于是小明决定拿掉其中的k本书，并使凌乱值最小。 
已知每本书的高度都不一样。 
Input
第一行两个数n和k，代表书的总数共有n 本，要求从中去掉k本书。（1=<n<=100,1<=k<n）; 
下面n行，每行两个整数值a和b，分别表示一本书的高度（a）和宽度（b），它们均小于200。 
Output
一行一个整数，表示去掉k本书后，书架的最小凌乱值。
Sample Input
  4 1
  1 2
  2 4
  3 1
  5 3
Sample Output
  3
Hint
【数据范围】 
30%的数据，n<=20。 100%的数据，n<=100,k<n。 
Source
const
maxn=23333333;
var
 f:array[0..1000,0..1000]of int64;
 a,v:array[0..1000]of longint;
 i,j,k,n,m,l,t,ans,tt:longint;
function min(a,b:longint):longint;
begin
 if a<b then exit(a);
 exit(b);
end;
function max(a,b:longint):longint;
begin
 if a>b then exit(a);
 exit(b);
end;
begin
//assign(input,'data2.in');
//reset(input);
for i:=2 to 200 do
for j:=2 to 200 do f[i,j]:=maxn;
 read(n,k);
 for i:=1 to n do
  read(a[i],v[i]);
 for i:=1 to n do
  for j:=1 to n do
   if a[i]<a[j] then begin
       t:=v[i];
       v[i]:=v[j];
       v[j]:=t;
       tt:=a[i];
       a[i]:=a[j];
       a[j]:=tt;
       end;
 for i:=2 to n do
  for j:=1 to n-k do
     for l:=j-1 to i-1 do
      f[i,j]:=min(f[i,j],f[l,j-1]+abs(v[l]-v[i]));
   ans:=f[i,n-k];
for i:=n-k to n do
 ans:=min(ans,f[i,n-k]);
write(ans);
end.