Var a,b,c: array[1..5] of longint;
    n,i,t: longint;
    f,g: text;
 begin
     assign(f,'cuutro.inp');reset(f);
     assign(g,'cuutro.out');rewrite(g);
     readln(f,n);
      for i:=1 to 5 do read(f,a[i]);
        c[1]:=100; c[2]:=50; c[3]:=20; c[4]:=10; c[5]:=5;
         for i:=1 to 5 do
          if n>a[i]*c[i]  then
           begin
              n:=n-(a[i]*c[i]);
              b[i]:=a[i];
           end
          else
           begin
            b[i]:=n div c[i];
            n:=n-(b[i]*c[i]);
           end;
         writeln(g,n);
         for i:=1 to 5 do write(g,b[i],' ');
     close(f);
     close(g);
 end.