program change;


var a,a1,b,b1,c,c1,d,d1,cena,s,n:integer;


BEGIN

repeat 
readln (cena,a,b,c,d);
s:=0;a1:=a;b1:=b;c1:=c;d1:=d;  
  if (a<>0) and( s<cena )then
    repeat
      s:=s+1;a:=a-1;
    until (a=0)or(s>=cena); 
  if (b<>0) and (s<cena) then
    repeat
      s:=s+5;b:=b-1;
    until (b=0)or(s>=cena); 
  if (c<>0) and (s<cena) then
    repeat
      s:=s+10;c:=c-1;
    until (c=0)or(s>=cena); 
  if (d<>0) and (s<cena) then
    repeat
      s:=s+25;d:=d-1;
    until (d=0)or(s>=cena); 
 n:=0; 
 if s>cena then 
    repeat
      
     if s-cena >= 10 then begin
       if c<c1 then begin c:=c+1; s:=s-10;n:=1;end;end
       else
     if s-cena >= 5 then begin 
       if b<b1 then begin b:=b+1; s:=s-5;n:=1;end;end
     else 
     if s-cena >= 1 then 
       if a<a1 then begin a:=a+1; s:=s-1;n:=1;end;
           
      until (s=cena)or(s<cena)or(n=0);
if s<>cena then writeln('Charlie cannot buy coffee.');
if s=cena then 
writeln('Throw in ',a1-a,' cents, ',b1-b,' nickels, ',c1-c,' dimes, and ',d1-d,' quarters.');
until (cena=0)and(a=0)and(b=0)and(c=0)and(d=0);
end.