program coins; {$APPTYPE CONSOLE} const MAXS=10001; var N,S,i,j,min:integer; C,D:array[0..10000] of integer; begin assign(input,'coins.dat'); reset(input); assign(output,'coins.sol'); rewrite(output); readln(n,s); for i:=0 to N-1 do read(C[i]); D[0]:=0; for i:=1 to S do begin min:=MAXS; for j:=0 to N-1 do begin if(((i>C[j])and(D[i-C[j]]>0)and(D[i-C[j]]