Program P1;
uses math;
      type val=record
                   w,p:word;
                  end;

      var a:array[1..5100] of val;
          m:array[1..10000] of word;
          n,g,j,i,rs:word;
          fi,fo:text;
begin
      assign(fi,'rucasc.in');
      reset(fi);
      assign(fo,'rucsac.out');
      rewrite(fo);
      read(fi,n,g);
      readln(fi);
      For i:=1 to n do begin
                     read(fi,a[i].w,a[i].p);
                     readln(fi);
                     end;
      For i:=1 to g do
      m[i]:=0;
      rs:=0;
      For i:=1 to n do
                    For j:=g-a[i].w downto 1 do

                    If m[j+a[i].w]<(m[j]+a[i].p) then begin
                     m[j+a[i].w]:=m[j]+a[i].p;

                     If m[j+a[i].w]>rs then rs:=m[j+a[i].w];
                      end;
      writeln(fo,m[g]);
      close(fo);
end.