记录编号	15622	评测结果	AAAAAAAAAA
题目名称	[IOI 2002] 任务安排	最终得分	100
用户昵称	.Xmz	是否通过	通过
代码语言	Pascal	运行时间	0.097 s
提交时间	2010-03-11 19:21:00	内存使用	0.21 MiB

program xmz;
var
 t:array[1..5000]of longint;
 f:array[1..5000]of longint;
 s:array[0..5000]of longint;
 ts:array[0..5000]of longint;
 x:array[0..5000]of longint;
 a,b,c,n,ss:longint;
 f1,f2:text;
begin
 assign(f1,'batch.in');assign(f2,'batch.out');
 reset(f1);rewrite(f2);
 read(f1,n,ss);
 for a:=1 to n do
  read(f1,t[a],f[a]);
 s[n]:=f[n];ts[n]:=t[n];
 for a:=n downto 2 do
  begin
  s[a-1]:=s[a]+f[a-1];
  ts[a-1]:=ts[a]+t[a-1];
  end;
 for a:=1 to n do
  begin
  x[a]:=(ts[1]-ts[a+1]+ss)*s[1];
  for b:=2 to a do
  if x[a]>x[b-1]+(ts[b]-ts[a+1]+ss)*s[b] then
  x[a]:=x[b-1]+(ts[b]-ts[a+1]+ss)*s[b];
  end;
  write(f2,x[n]);
 close(f1);close(f2);

end.