Program rucsac;
uses math;
var fi, fo:text;
  i,j,w,p,n,g,max1,maxim: integer;
   dp:array[1..10005] of integer;
begin
assign(fi,'rucsac.in');
assign(fo,'rucsac.out');
reset(fi); rewrite(fo);
 read(n);
readln(g);
for j:=1 to n do begin
                  read(w);
                  readln(p);
    for i:=g downto 1 do begin
         if (i-w>0) and ( dp[i-w] <>0)
             then dp[i]:= max(dp[i], dp[i-w] + p);
         
         if i=w
             then dp[i]:= max(dp[i],p);
end;
end;
maxim:=0;
for i:=1 to g do begin
     if (dp[i]> maxim) then maxim:=dp[i];
 end;
write(fo,maxim);
readln;
end.