>  var money:real;
>      num:array[1..4]of integer;
> 
>  procedure init;
>   var i:integer;
>   begin
>    read(money);
>    for i:=1 to 4 do
>     read(num[i]);
>    readln;
>   end;
> 
>  procedure main;
>   var i,j,k:integer;
>       sum:real;
>   begin
>    for i:=num[1] downto 0 do
>     for j:=num[2] downto 0 do
>      for k:=num[3] downto 0 do
>       begin
>        sum:=money-0.25*i-0.1*j-0.05*k;
>        if sum<0 then continue;
>        if (sum=0) or
>           (sum/0.01<=num[4]) then begin
>                                    writeln(i,' ',j,' ',k,' ',sum/0.01:0:0);
>                                    exit;
>                                   end;
>       end;
>    writeln('NO EXACT CHANGE');
>   end;
> 
>  begin
>   repeat
>    init;
>    main;
>   until eof;
>  end.