题解：

模拟。

枚举选择第几种铅笔，算出价格，min一下就行了。

var n,ans,i,x,y:longint;

begin

 readln(n);

 ans:=maxlongint;

 for i:=1 to 3 do

  begin

   read(x,y);

   if ((n-1)div x+1)*y<ans then ans:=((n-1)div x+1)*y;

  end;

 write(ans);

end.

2016买铅笔