var i,j,n:longint；a,b:array[1..10]of integer；

f:array[0..10000]of longint；

function min(x,y:longint):longint；

begin

if x<y then min:=x else min:=y；

end；

begin

for i:=1 to 10 do

begin

read(a[i])；

b[i]:=i；

end；

readln(n)；

for i:=1 to n do

f[i]:=100000；

for i:=1 to 10 do

for j:=1 to n do

if j>=b[i] then f[j]:=min(f[j],f[j-b[i]]+a[i])；

writeln(f[n])；

end.