program sss;
type rrr=record
     cast,greu:longint;
     end;
var f,g:text;
    n,gr,i,j:longint;
    v:array[1..5005] of rrr;
    a:array[1..5005,1..5005] of longint;
begin
assign(f,'rucsac.in'); reset(f);
assign(g,'rucsac.out'); rewrite(g);
readln(f,n,gr);
  for i:=1 to n do
    begin
      readln(f,v[i].greu,v[i].cast);
    end;
  for i:=1 to n do
    for j:=1 to gr do
      begin
        if v[i].greu<=j then
          if v[i].cast+a[i-1,j-v[i].greu]>a[i-1,j] then
            begin
              a[i,j]:=v[i].cast+a[i-1,j-v[i].greu];
            end
            else
              a[i,j]:=a[i-1,j]
              else
              a[i,j]:=a[i-1,j];
      end;
      write(g,a[n,gr]);
 close(f);
 close(g);
end.