var n,i , j, Max: longint;
    a: array[0..10000] of longint;
    c, g: array[1..10000] of longint;
    s: longint;
 
function Maxim(a, b: longint): longint;
begin
 if a>b then maxim:=a
        else maxim:=b;
end;
 
 
begin
 assign(input,'rucsac.in');
 reset(input);
 assign(output,'rucsac.out');
 rewrite(output);
 readln(n, max);
 
 for i:=1 to n do readln(g[i], c[i]);
 for i:=0 to max do a[i]:=0;
 
 s:=0;
 for i:=1 to n do
  for j:=(max-g[i]) downto 0 do
              Begin
               a[j+g[i]]:=Maxim(a[j+g[i]], a[j]+c[i]);
               if a[j+g[i]]>s then s:=a[j+g[i]];
              end;
 
  writeln(s);
 
 
 
close(input);
close(output);
end.