Program p1;
uses math;
type p=record v,w:integer; end;
var a:array [1..5100] of p;
    b:array [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:=g downto a[i].w do begin
                                        if b[j-a[i].w]+a[i].v>b[j] then
                                        b[j]:=b[j-a[i].w]+a[i].v;
                                        end;
     writeln(fo,b[g]);
     close(fo);
end.