2016 NOIP第一题 买铅笔

题目：

题目太水 不解析

代码：

var a,b:array[0..4] of integer;
    n,s,max,i:longint;
begin
  read(n);
  max:=maxlongint;
  for i:=1 to 3 do
  begin
    read(a[i],b[i]);
    s:=n div a[i];
    if n mod a[i]<>0 then inc(s);
    if s*b[i]<max then max:=s*b[i];
  end;
  write(max);
end.