记录编号	6042	评测结果	AAAAAAA
题目名称	最小乘车费用	最终得分	100
用户昵称	zpl123	是否通过	通过
代码语言	Pascal	运行时间	0.000 s
提交时间	2008-10-30 12:45:18	内存使用	0.12 MiB

program busses;
const
maxn=1000;
maxt=1000000;

var
n:longint;
data:array[1..10]of longint;
f:array[0..maxn] of longint;

procedure init;
var
i:longint;
begin
assign(input,'busses.in');
reset(input);
assign(output,'busses.out');
rewrite(output);
data[0]:=0;
for i:=1 to 10 do read(data[i]);
readln;
readln(n);
close(input);
fillchar(f,sizeof(f),0);
end;

procedure main;
var
i,j,t,k:longint;
begin
f[0]:=0;
f[1]:=data[1];
for i:=2 to n do
 begin
 t:=maxt;
 if n>10 then k:=10
 else k:=i;
 for j:=1 to k do
 if f[i-j]+data[j]<=t then t:=f[i-j]+data[j];
 f[i]:=t;
 end;
end;

begin
init;
main;
writeln(f[n]);
close(output);
end.