program rucsac;
  var n,g,w,p,c,i,j:longint;
      a:array[0..10000] of longint;

begin
  assign(input,'rucsac.in');
  reset(input);
  assign(output,'rucsac.out');
  rewrite(output);
  readln(n,g);
  for i:=1 to n do
    begin
      readln(w,p);
      for j:=g downto w do
        begin
          c:=a[j-w]+p;
          if c>a[j] then a[j]:=c;
        end;
    end;
  writeln(a[g]);
  close(input);close(output);
end.