[DP] 公路乘车

var
 dp:array[0..100]of longint;
 i,j:longint;
 x:array[0..10]of longint;
 n:longint;
function min(a,b:longint):longint;
begin
 if a>b
 then exit(b)
 else exit(a);
end;

begin
 for i:=1 to 10 do
  read(x[i]);
 readln;
 readln(n);
 for i:=1 to n do
  dp[i]:=50000;
 for i:=1 to n do
  for j:=1 to 10 do
   if i-j>=0
   then dp[i]:=min(dp[i-j]+x[j],dp[i]);
 writeln(dp[n]);
end.