Nguyễn Trung Hiếu

uses math;
var    a,b,x,kt:array [0..100000] of longint;
        res,n,k,i,j:longint;
procedure xuli;
var    i,t:longint;
begin
        t:=0;
        for i:=1 to k do t:=t+a[x[i]]+b[x[i]];
        res:=max(res,t);
end;
procedure thu(u:longint);
var    v:longint;
begin
        for v:=x[u-1]+1 to n-k+u do
        begin
                x[u]:=v;
                if u=k then xuli else thu(u+1);
        end;

end;
begin
        assign(input,'dqckn7.inp');reset(input);
        readln(n,k);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do read(b[i]);
        close(input);
        assign(output,'dqckn7.out');rewrite(output);
        thu(1);
        write(res);
        close(output);
end.

uses math;
var    a,b,c,x,kt:array [0..100000] of longint;
        res,n,m,p,k,i,j:longint;
procedure xuli;
var    i,t:longint;
begin
        t:=0;
        for i:=1 to k do t:=t+a[x[i]];
        if t>m then exit();
        t:=0;
        for i:=1 to k do t:=t+c[x[i]];
        if t>p then exit();
        t:=0;
        for i:=1 to k do t:=t+b[x[i]];
        res:=max(res,t);
end;
procedure thu(u:longint);
var    v:longint;
begin
        for v:=x[u-1]+1 to n-k+u do
        begin
                x[u]:=v;
                if u=k then xuli else thu(u+1);
        end;

end;
begin
        assign(input,'dqckn8.inp');reset(input);
        readln(n,k,m,p);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do read(b[i]);
        for i:=1 to n do read(c[i]);
        close(input);
        assign(output,'dqckn8.out');rewrite(output);
        thu(1);
        write(res);
        close(output);
end.

uses math;
var    a,b,c,x,kt:array [0..100000] of longint;
        res,n,m,p,k,i,j,q,o:longint;
procedure xuli;
var    i,t:longint;
begin
        t:=0;
        for i:=1 to k do t:=t+a[x[i]];
        if t>m then exit();
        t:=0;
        for i:=1 to k do t:=t+c[x[i]];
        if t>p then exit();
        t:=0;
        for i:=1 to k do t:=t+b[x[i]];
        if t=q then
        begin
                for i:=1 to k do write(b[x[i]],' ');writeln();
                o:=1;
        end;
end;
procedure thu(u:longint);
var    v:longint;
begin
        for v:=x[u-1]+1 to n-k+u do
        begin
                x[u]:=v;
                if u=k then xuli else thu(u+1);
        end;

end;
begin
        assign(input,'dqckn9.inp');reset(input);
        readln(n,k,m,p,q);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do read(b[i]);
        for i:=1 to n do read(c[i]);
        close(input);
        assign(output,'dqckn9.out');rewrite(output);
        thu(1);
        if o=0 then write(-1);
        close(output);
end.