记录编号	6744	评测结果	AAAAAAAAAA
题目名称	[USACO Mar03] 奶酪工厂	最终得分	100
用户昵称	WaterFire	是否通过	通过
代码语言	Pascal	运行时间	0.037 s
提交时间	2008-11-04 13:49:54	内存使用	0.19 MiB

program waterfire;
const
fin='factory.in';
fout='factory.out';
var
i,j,n,s,t:longint;
max:int64;
data,cost:array[0..10000] of longint;
f1,f2:text;

Procedure work(x:longint);
var
ii,jj:longint;
Begin
 for ii:=x to n do
  if data[x]*cost[ii]+(ii-x)*s*cost[ii]<=data[ii]*cost[ii]
    then
    begin
    max:=max+data[x]*cost[ii]+(ii-x)*s*cost[ii];
     if ii=n then begin
     writeln(f2,max);
     close(f2);
     halt;
     end;
     end else work(ii);
End;

BEGIN
max:=0;
assign(f1,fin);reset(f1);
assign(f2,fout);rewrite(f2);
readln(f1,n,s);
for i:=1 to n do
readln(f1,data[i],cost[i]);
close(f1);
work(1);
writeln(max);
END.