test914/cake.pas

   1 var
   2   a,b,c,d,k,ans:longint;
   3
   4 function min(a,b:longint):longint;
   5 begin
   6   if a<b then exit(a) else exit(b);
   7 end;
   8
   9 begin
  10   assign(input,'cake.in'); reset(input);
  11   assign(output,'cake.out'); rewrite(output);
  12   readln(a,b,c,d);
  13   k:=min(a,d);
  14   inc(ans,k);
  15   d:=0; a:=a-ans;
  16   k:=min(b,c);
  17   inc(ans,k);
  18   b:=b-k; c:=c-k;
  19   k:=min(a div 2,c);
  20   inc(ans,k);
  21   c:=0; a:=a-k*2;
  22   k:=min(a,b div 2);
  23   inc(ans,k);
  24   b:=b-k*2; a:=a-k;
  25   k:=min(a div 3,b);
  26   inc(ans,k);
  27   b:=0; a:=a-k*3;
  28   k:=a div 5;
  29   inc(ans,k);
  30   writeln(ans);
  31   close(input); close(output);
  32 end.