记录编号	6669	评测结果	AAAAAAAAAA
题目名称	[USACO Mar03] 奶酪工厂	最终得分	100
用户昵称	rottenwood	是否通过	通过
代码语言	Pascal	运行时间	0.038 s
提交时间	2008-11-03 22:26:29	内存使用	0.26 MiB

program factory;
type
shuzu=array[1..10000,1..2] of longint;
shuzu1=array[1..10000] of int64;
var
f:shuzu;
ans:int64;
z:shuzu1;
i,j,k,m,n,s:longint;
begin
assign(input,'factory.in');reset(input);
assign(output,'factory.out');rewrite(output);
readln(n,s);
fillchar(z,sizeof(z),0);
for i:=1 to n do
 readln(f[i,1],f[i,2]);
z[1]:=f[1,1]*f[1,2];
j:=1;
for i:=2 to n do
  if (f[j,1]+s*(i-j))<f[i,1] then z[i]:=(f[j,1]+s*(i-j))*f[i,2]
                             else begin
                                  z[i]:=f[i,1]*f[i,2];
                                  j:=i;
                                  end;
for i:=1 to n do
  ans:=ans+z[i];
writeln(ans);
close(output);
end.