type tab=array[0..5010] of longint;
	 tab2=array[0..2,0..10010] of longint;
var a,b:text;
	i,mass,n,j:longint;
	m,v:tab;
	t:tab2;
	
function max(x,y:longint):longint;
begin
	if x>y then max:=x else max:=y;
end;	
	
begin
assign(a,'rucsac.in'); reset(a);
assign(b,'rucsac.out'); rewrite(b);
readln(a,n,mass);
for i:=1 to n do
	begin
	readln(a,m[i],v[i]);
	end;

for i:=1 to n do
	for j:=1 to mass do
		if i mod 2=0 then
			if (j-m[i])>=0 then t[2,j]:=max(t[1,j],v[i]+t[1,j-m[i]]) else t[2,j]:=t[1,j] 
			else
			if (j-m[i])>=0 then t[1,j]:=max(t[2,j],v[i]+t[2,j-m[i]]) else t[1,j]:=t[2,j]; 

writeln(b,t[2,j]);

close(a);
close(b);
end.