Program p1;
uses math;
type p=record v,w:integer; end;
var a:array [1..5100] of p;
    b:array [0..2,0..10010] of longint;
    n,g,i,j,k:longint;
    min:p;
    f,fo:text;
Begin
     assign(f,'rucsac.in');
     assign(fo,'rucsac.out');
     reset(f);
     rewrite(fo);
     read(f,n,g);
     for i:=1 to n do read(f,a[i].w,a[i].v);
     for i:=1 to n do for j:=a[i].w to g do begin
                                        if j=a[i].w then b[2,j]:=max(b[1,j],b[1,j-a[i].w]+a[i].v)
                                                    else b[2,j]:=b[1,j];
                                        b[1,j]:=b[2,j];
                                        end;
     writeln(fo,b[2,g]);
     close(fo);
end.