const inf=99999;
 var e,c:array[1..1001] of longint;
     i,j,k,g,w:longint;
     mn,minus:longint;
     a:array[1..5002] of longint;
     b:array[1..5002] of byte;

begin
assign(input,'energii.in');
assign(output,'energii.out');
reset(input);
rewrite(output);

 readln(g);
 readln(w);
     mn:=inf;
  for i:=1 to g do
   begin
    read(e[i]); readln(c[i]);
    inc(minus,e[i]);
   end;
 if minus<w then write('-1') else
  begin
   for i:=1 to 5001 do
    begin
     a[i]:=inf;
     b[i]:=1;
    end;

    for i:=1 to g do
     if a[e[i]]=inf then a[e[i]]:=c[i];


         for i:=1 to g do
          for j:=1 to 5001 do
           if j-e[i]>0 then
              if a[j]>a[j-e[i]]+c[i] then  a[j]:=a[j-e[i]]+c[i];

         for i:=w to 5001 do
          if mn>a[i] then mn:=a[i];
          write(mn);
 end;





close(input);
close(output);
{Si totusi este trist in lume.}
end.