var
  n,m,v,i,j,k,x,y,z,h,l:longint;
  f:array[0..3000,0..300]of longint;

function max(a,b:longint):longint;
begin
  if a>b then exit(a);
  exit(b);
end;

begin
  assign(input,'shop.in'); reset(input);
  assign(output,'shop.out'); rewrite(output);
  readln(n,m,v);
  for i:=1 to n do
  begin
    readln(x,y,z,h);
    for j:=m downto x do
     for k:=v downto y do
     begin
       f[j,k]:=max(f[j,k],f[j-x,k-y]+z);
       if (j>=x*h)and(k>=y*h) then
       f[i,j]:=max(f[j,k],f[j-x*h,k-y*h]+z*h)
     end;
  end;
  writeln(f[m,v]);
  close(input);
  close(output);
end.