#include <bits/stdc++.h>
#define debug cout << "ok\n";
#define SQR(x) (1LL * ((x) * (x)))
#define MASK(i) (1LL << (i))
#define BIT(x, i) (((x) >> (i)) & 1)
#define fi first
#define se second
#define pb push_back
#define mp make_pair
#define pii pair<int,int>
#define pli pair<ll,int>
#define vi vector<int>
#define FAST ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0);
typedef long long ll;
typedef unsigned long long ull;
typedef long double ld;
typedef unsigned int ui;
using namespace std;
const int M = 1e9 + 7;
const int INF = 1e9 + 7;
const ll INFLL = (ll)2e18 + 7LL;
const ld PI = acos(-1);
const int dx[] = {1, -1, 0, 0, -1, 1, 1, -1};
const int dy[] = {0, 0, 1, -1, -1, -1, 1, 1};
template<class _, class __>
bool minimize(_ &x, const __ y){
if(x > y){
x = y;
return true;
} else return false;
}
template<class _, class __>
bool maximize(_ &x, const __ y){
if(x < y){
x = y;
return true;
} else return false;
}
template<class _,class __>
void Add(_ &x, const __ y) {
x += y;
if (x >= M) {
x -= M;
}
return;
}
template<class _,class __>
void Diff(_ &x, const __ y) {
x -= y;
if (x < 0) {
x += M;
}
return;
}
//--------------------------------------------------------------
const int MaxN = 1e6+7;
int n,l,r,k;
int a[MaxN],f[MaxN];
ll b[MaxN];
bool ch(int cur1,int cur2) {
if (f[cur1] != f[cur2]) return f[cur1] > f[cur2];
else return b[cur1] < b[cur2];
}
bool check(int val) {
for (int i=1;i<=n;i++) b[i] = a[i] - val;
for (int i=1;i<=n;i++) f[i] = INFLL;
for (int i=1;i<=n;i++) b[i] += b[i-1];
deque<int> q;
for (int i=l;i<=n;i++) {
while (!q.empty() && ch(q.back(),i-l)) q.pop_back();
while (!q.empty() && q.front() < i - r) q.pop_front();
q.pb(i-l);
if (b[i] >= b[q.front()]) f[i] = f[q.front()] + 1;
else f[i] = f[q.front()];
}
return f[n] >= k && f[n] < INFLL;
}
void sol() {
cin >> n >> l >> r >> k;
for (int i=1;i<=n;i++) cin >> a[i];
int l = 1,r = 1e6;
int res = 0;
while (l <= r) {
int mid = (l+r) >> 1;
if (check(mid)) {
res = mid;
l = mid + 1;
}
else r = mid - 1;
}
cout << res;
}
int main() {
// freopen("test.inp","r",stdin);
// freopen("test.out","w",stdout);
FAST
int t=1;
// cin >> t;
while (t--) sol();
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CgojZGVmaW5lIGRlYnVnICAgICBjb3V0IDw8ICJva1xuIjsKI2RlZmluZSBTUVIoeCkgICAgKDFMTCAqICgoeCkgKiAoeCkpKQojZGVmaW5lIE1BU0soaSkgICAoMUxMIDw8IChpKSkKI2RlZmluZSBCSVQoeCwgaSkgKCgoeCkgPj4gKGkpKSAmIDEpCiNkZWZpbmUgZmkgICAgICAgIGZpcnN0CiNkZWZpbmUgc2UgICAgICAgIHNlY29uZAojZGVmaW5lIHBiICAgICAgICBwdXNoX2JhY2sKCiNkZWZpbmUgbXAgbWFrZV9wYWlyCiNkZWZpbmUgcGlpIHBhaXI8aW50LGludD4KI2RlZmluZSBwbGkgcGFpcjxsbCxpbnQ+CiNkZWZpbmUgdmkgdmVjdG9yPGludD4KCiNkZWZpbmUgRkFTVCBpb3NfYmFzZTo6c3luY193aXRoX3N0ZGlvKDApO2Npbi50aWUoMCk7Y291dC50aWUoMCk7Cgp0eXBlZGVmIGxvbmcgbG9uZyBsbDsKdHlwZWRlZiB1bnNpZ25lZCBsb25nIGxvbmcgdWxsOwp0eXBlZGVmIGxvbmcgZG91YmxlIGxkOwp0eXBlZGVmIHVuc2lnbmVkIGludCB1aTsKCnVzaW5nIG5hbWVzcGFjZSBzdGQ7Cgpjb25zdCBpbnQgTSA9IDFlOSArIDc7CmNvbnN0IGludCBJTkYgPSAxZTkgKyA3Owpjb25zdCBsbCBJTkZMTCA9IChsbCkyZTE4ICsgN0xMOwpjb25zdCBsZCBQSSA9IGFjb3MoLTEpOwoKY29uc3QgaW50IGR4W10gPSB7MSwgLTEsIDAsIDAsIC0xLCAxLCAxLCAtMX07CmNvbnN0IGludCBkeVtdID0gezAsIDAsIDEsIC0xLCAtMSwgLTEsIDEsIDF9OwoKdGVtcGxhdGU8Y2xhc3MgXywgY2xhc3MgX18+CiAgICBib29sIG1pbmltaXplKF8gJngsIGNvbnN0IF9fIHkpewogICAgICAgIGlmKHggPiB5KXsKICAgICAgICAgICAgeCA9IHk7CiAgICAgICAgICAgIHJldHVybiB0cnVlOwogICAgICAgIH0gZWxzZSByZXR1cm4gZmFsc2U7CiAgICB9CnRlbXBsYXRlPGNsYXNzIF8sIGNsYXNzIF9fPgogICAgYm9vbCBtYXhpbWl6ZShfICZ4LCBjb25zdCBfXyB5KXsKICAgICAgICBpZih4IDwgeSl7CiAgICAgICAgICAgIHggPSB5OwogICAgICAgICAgICByZXR1cm4gdHJ1ZTsKICAgICAgICB9IGVsc2UgcmV0dXJuIGZhbHNlOwogICAgfQoKdGVtcGxhdGU8Y2xhc3MgXyxjbGFzcyBfXz4KICAgIHZvaWQgQWRkKF8gJngsIGNvbnN0IF9fIHkpIHsKICAgICAgICB4ICs9IHk7CiAgICAgICAgaWYgKHggPj0gTSkgewogICAgICAgICAgICB4IC09IE07CiAgICAgICAgfQogICAgICAgIHJldHVybjsKICAgIH0KCnRlbXBsYXRlPGNsYXNzIF8sY2xhc3MgX18+CiAgICB2b2lkIERpZmYoXyAmeCwgY29uc3QgX18geSkgewogICAgICAgIHggLT0geTsKICAgICAgICBpZiAoeCA8IDApIHsKICAgICAgICAgICAgeCArPSBNOwogICAgICAgIH0KICAgICAgICByZXR1cm47CiAgICB9CgovLy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgpjb25zdCBpbnQgTWF4TiA9IDFlNis3OwoKaW50IG4sbCxyLGs7CmludCBhW01heE5dLGZbTWF4Tl07CmxsIGJbTWF4Tl07Cgpib29sIGNoKGludCBjdXIxLGludCBjdXIyKSB7CiAgICBpZiAoZltjdXIxXSAhPSBmW2N1cjJdKSByZXR1cm4gZltjdXIxXSA+IGZbY3VyMl07CiAgICBlbHNlIHJldHVybiBiW2N1cjFdIDwgYltjdXIyXTsKfQoKYm9vbCBjaGVjayhpbnQgdmFsKSB7CiAgICBmb3IgKGludCBpPTE7aTw9bjtpKyspIGJbaV0gPSBhW2ldIC0gdmFsOwogICAgZm9yIChpbnQgaT0xO2k8PW47aSsrKSBmW2ldID0gSU5GTEw7CiAgICBmb3IgKGludCBpPTE7aTw9bjtpKyspIGJbaV0gKz0gYltpLTFdOwogICAgZGVxdWU8aW50PiBxOwogICAgZm9yIChpbnQgaT1sO2k8PW47aSsrKSB7CiAgICAgICAgd2hpbGUgKCFxLmVtcHR5KCkgJiYgY2gocS5iYWNrKCksaS1sKSkgcS5wb3BfYmFjaygpOwogICAgICAgIHdoaWxlICghcS5lbXB0eSgpICYmIHEuZnJvbnQoKSA8IGkgLSByKSBxLnBvcF9mcm9udCgpOwogICAgICAgIHEucGIoaS1sKTsKICAgICAgICBpZiAoYltpXSA+PSBiW3EuZnJvbnQoKV0pIGZbaV0gPSBmW3EuZnJvbnQoKV0gKyAxOwogICAgICAgIGVsc2UgZltpXSA9IGZbcS5mcm9udCgpXTsKICAgIH0KICAgIHJldHVybiBmW25dID49IGsgJiYgZltuXSA8IElORkxMOwp9Cgp2b2lkIHNvbCgpIHsKICAgIGNpbiA+PiBuID4+IGwgPj4gciA+PiBrOwogICAgZm9yIChpbnQgaT0xO2k8PW47aSsrKSBjaW4gPj4gYVtpXTsKICAgIGludCBsID0gMSxyID0gMWU2OwogICAgaW50IHJlcyA9IDA7CiAgICB3aGlsZSAobCA8PSByKSB7CiAgICAgICAgaW50IG1pZCA9IChsK3IpID4+IDE7CiAgICAgICAgaWYgKGNoZWNrKG1pZCkpIHsKICAgICAgICAgICAgcmVzID0gbWlkOwogICAgICAgICAgICBsID0gbWlkICsgMTsKICAgICAgICB9CiAgICAgICAgZWxzZSByID0gbWlkIC0gMTsKICAgIH0KICAgIGNvdXQgPDwgcmVzOwp9CgppbnQgbWFpbigpIHsKLy8JZnJlb3BlbigidGVzdC5pbnAiLCJyIixzdGRpbik7Ci8vCWZyZW9wZW4oInRlc3Qub3V0IiwidyIsc3Rkb3V0KTsKCUZBU1QKCWludCB0PTE7Ci8vCWNpbiA+PiB0OwoJd2hpbGUgKHQtLSkgc29sKCk7Cn0=