uses crt;
type kmang=array[0..255] of integer;
var fi,fo:text;
    n,i,k:integer;
    a:kmang;
procedure khoitao;
        begin
                assign(fi,'DOAN.INP');
                assign(fo,'DOAN.OUT');
                {$I-} reset(fi); {$I+}
                if ioresult<>0 then
                begin
                        rewrite(fi);
                        reset(fi);
                end;
                readln(fi,n,k);
                for i:=1 to n do read(fi,a[i]);
                close(fi); rewrite(fo);
        end;
procedure xuly;
var j,min,tong,vt:integer;
        begin
                i:=1;  min:=n;     vt:=0;
                while i<=n do
                begin
                        j:=i;   tong:=a[i];
                        while (tong<k) and (j<=n) do
                        begin
                                inc(j);
                                tong:=tong+a[j];
                        end;
                        if (tong=k) and (j-i+1<min) then
                        begin
                                min:=j-i+1;
                                vt:=i;
                        end;
                        inc(i);
                end;
                if vt<>0 then write(fo,vt,' ',min)
                else write(fo,'0 0');
        end;
BEGIN
        khoitao; xuly;
        close(fo);
END.

Cho mình ctlhn nha.