var g,b100,b50,b20,b10,b5:int64;
sl100,sl50,sl20,sl10,sl5:integer;
begin
assign (input,'DGVB.INP');reset(input);
assign (output,'DGVB.OUT');rewrite(output);
readln(g);
readln(b100,b50,b20,b10,b5);
sl100:=0;
sl50:=0;
sl20:=0;
sl10:=0;
sl5:=0;
if g>=100 then
begin
sl100:=g div 100;
if sl100>b100 then
sl100:=b100;
g:=g-sl100*100;
end;
if g>=50 then
begin
sl50:=g div 50;
if sl50>b50 then
sl50:=b50;
g:=g-sl50*50;
end;
if g>=20 then
begin
sl20:=g div 20;
if sl20>b20 then
sl20:=b20;
g:=g-sl20*20;
end;
if g>=10 then
begin
sl10:=g div 10;
if sl10>b10 then
sl10:=b10;
g:=g-sl10*10;
end;
if g>=5 then
begin
sl5:=g div 5;
if sl5>b5 then
sl5:=b5;
g:=g-sl5*5;
end;
if (g>0)  then
begin
writeln(g)
end
else writeln('0');
writeln(sl100,' ',sl50,' ',sl20,' ',sl10,' ',sl5);
readln;
end.

#danglam228

program dgvb;
var
  n: Int64;
  a: array[0..4] of Integer; 
  f: array[0..4] of Integer = (100, 50, 20, 10, 5); 
  b: array[0..4] of Integer; 
  i, d: Integer;
begin
  Assign(input, 'DGVB.INP');
  Reset(input);
  Assign(output, 'DGVB.OUT');
  Rewrite(output);
  Readln(n);
  for i := 0 to 4 do
    Readln(a[i]);
  FillChar(b, SizeOf(b), 0); 
  for i := 0 to 4 do
  begin
    if n = 0 then Break;
    d := a[i] div f[i];
    if d > n div f[i] then
      d := n div f[i];
    b[i] := d;
    n := n - d * f[i];
  end;
  
  writeln(n);
  for i := 0 to 4 do
    write(b[i], ' '); 
  writeln;
end.