var f1,f2:text;
    a:array[1..2,1..5000]of longint;
    t:array[0..10000]of longint;
    n,g,i,j:longint;
    
function max(a,b:longint):longint;
begin
  if a>b then max:=a else max:=b;
end;
    
begin
  assign(f1,'rucsac.in');
  reset(f1);
  readln(f1,n,g);
  for i:=1 to n do read(f1,a[1,i],a[2,i]);  
  close(f1);
  
  for i:=0 to g do t[i]:=0;
  
  for i:=1 to n do
    for j:=g downto a[1,i] do t[j]:=max(t[j], t[j-a[1,i]]+a[2,i]);
  
  
  assign(f2,'rucsac.out');
  rewrite(f2);
  writeln(f2,t[g]);
  close(f2);
   
  
end.