type sir=array[1..10001] of real;
var f,g:text;
    gen,w,i,j:integer;
    eg,cg:sir;
   aux,s,c:real;

begin
assign(f,'energii.in');reset(f);
assign(g,'energii.out');rewrite(g);
read(f,gen,w);
for i:=1 to gen do
read(f,eg[i],cg[i]);
for i:=1 to gen-1 do
    for j:=i+1 to gen do
    if (eg[i]/cg[i])<(eg[j]/cg[j]) then begin aux:=eg[i];
                              eg[i]:=eg[j];
                              eg[j]:=aux;
                              aux:=cg[i];
                              cg[i]:=cg[j];
                              cg[j]:=aux;
                              end;
s:=eg[1];
c:=cg[1];
i:=2;
while (s<w) and (i<=gen) do begin
s:=s+eg[i];
c:=c+cg[i];
i:=i+1;
end;

if s>=w then write(g,c:5:0)
        else write(g,'-1');
close(g);
end.