var i,j,n,p,min:longint;
    v,x,e,c,uz:array[1..5000]of integer;

begin
assign(input,'energii.in');reset(input);
assign(output,'energii.out');rewrite(output);
readln(n,p);
for i:=1 to n do
        begin
        readln(v[i],x[i]);
        s:=s+v[i];
        end;
for i:=1 to s do
        begin
        if e[i-1]>=i then
                begin
                e[i]:=e[i-1];
                c[i]:=c[i-1];
                end
        else
                begin
                min:=maxlongint;
                for j:=1 to n do
                        begin
                        if
                        end;
                end;
        end;
close(input);close(output);
end.