var a,b,c,e,f,m,po:array[1..100000] of longint;
     k,g:text;
     i,n,d,p,nr,u,pro,x,s,min,max,t,y,gr,cd,greutatea,j:longint;
begin
assign(k,'ghiozdan.in');
reset(k);
assign(g,'ghiozdan.out');
rewrite(g);
read(k,n,greutatea);
for i:=1 to n do
read(k,a[i]);
for i:=1 to n do  begin
s:=a[i];p:=a[i];nr:=1;
for j:=i+1 to n do begin
s:=s+a[j];
if s>greutatea then begin d:=d+1; b[d]:=x; c[d]:=p;e[d]:=nr; break;end;
x:=s;
p:=p*10+a[j];
nr:=nr+1;
if (s<greutatea)and(j=n) then begin   d:=d+1; b[d]:=x; c[d]:=p;e[d]:=nr; break;end;
end;
end;
for i:=1 to d do
if b[i]>max then begin max:=b[i]; end;
for i:=1 to d do
if max=b[i] then begin gr:=gr+1; f[gr]:=e[i];m[gr]:=c[i] end;min:=f[1];t:=1;
for i:=1 to gr do
if f[i]<min then begin min:=f[i]; t:=i; end;
writeln(g,max,' ',min);
while m[t]>0 do begin
cd:=m[t] mod 10      ;
m[t]:=m[t] div 10;
u:=u+1;
po[u]:=cd;
end;
for i:=1 to u do
for j:=i+1 to u do
if po[i]>po[j] then begin pro:=po[i];po[i]:=po[j];po[j]:=pro; end;
for i:=1 to u do
if po[i]<>0 then writeln(g,po[i]);

close(g);
close(k);
end.