program rucsacului;
type vect=array[0..10001]of longint;
var a,w,c:vect;
    f,g:text;
    intrare,iesire:array[1..1 shl 17]of char;
    n,gmax,i,j,sol:longint;
procedure dinamica;
var i,j,p,gr,n:integer;
begin
readln(f,n,gr);
for i:=1 to n do
  begin
  readln(f,w[i],c[i]);
  for j:=gr downto w[i] do
    if a[j]<a[j-w[i]]+c[i] then  a[j]:=a[j-w[i]]+c[i];
  end;
writeln(g,a[gr]);
end;

begin
assign(f,'rucsac.in');  reset(f);    settextbuf(f,intrare);
assign(g,'rucsac.out'); rewrite(g);  settextbuf(g,iesire);
dinamica;
close(f);close(g);
end.