const lmax=15000;
var a,b:array[1..lmax]of longint;
    min,g,w,e,c,i,j:longint;
    f:text;

begin
assign(f,'energii.in');reset(f);
fillchar(a,sizeof(a),0);
readln(f,g,w);
readln(f,e,c);
a[e]:=c;
for i:=2 to g do begin
    fillchar(b,sizeof(b),0);
    readln(f,e,c);
    b[e]:=c;
    for j:=1 to lmax do begin
       if(a[j]<>0)and(j+e<=lmax) then
                b[j+e]:=a[j]+c;
       if(b[j]=0)or(a[j]<>0)and(a[j]<b[j]) then b[j]:=a[j];
    end;
    a:=b;
    end;
min:=maxlongint;
for i:=w to lmax do
  if (a[i]<>0)and(a[i]<min) then min:=a[i];
close(f);
assign(f,'energii.out');rewrite(f);
if min<>maxint then
       writeln(f,min)
else
 writeln(f,-1);
close(f);
end.