记录编号	5993	评测结果	AAAAAAA
题目名称	最小乘车费用	最终得分	100
用户昵称	elysian	是否通过	通过
代码语言	Pascal	运行时间	0.001 s
提交时间	2008-10-30 08:46:38	内存使用	0.49 MiB

program elysian;
const
fin='busses.in';fout='busses.out';
var
a:array[0..10] of longint;
f:array[0..100000] of longint;
f1,f2:text;
n:longint;

procedure main;
var
i,j,k,x:longint;
begin
f[1]:=a[1];

for i:=2 to n do
begin
if i-10>=0 then x:=10 else x:=i;
f[i]:=f[i-1]+a[1];
  for k:=2 to x do
   if i-k>=0 then
    if f[i-k]+a[k]<f[i] then f[i]:=f[i-k]+a[k];

end;
end;

procedure init;
var
i:longint;
begin
assign(f1,fin);reset(f1);
for i:=1 to 10 do read(f1,a[i]);
readln(f1,n);
close(f1);
end;

begin
init;
main;
assign(f2,fout);rewrite(f2);
writeln(f2,f[n]);
close(f2);
end.