program lamduong;

uses crt;

var f,g:text;

       A:array[1..10000] of integer;

       n,i,k:integer;

procedure kt_ndl;

begin

 Assign(f,'DDUONG.inp');

 Assign(g,'DDUONG.out');  rewrite(g);

 { $ I - } reset(f); { $ I + }    {mỗi kí hiệu bạn viết dính lại nha}

 if IOresult<>0 then

  begin

   rewrite(f);

   reset(f);

  end;

 readln(f,n,k);

 for i:=1 to n do

  read(f,A[i]);

 close(f);

end;

procedure xuly;

var j,d,vt:integer;

      t:longint;

begin

for i:=1 to n-1 do

 begin

  vt:=i;  d:=1;  t:=A[i];

  for j:=i+1 to n do

   begin

    t:=t+A[j];

    inc(d);

    if t/d=k then 

     begin

      writeln(g,vt);

      writeln(g,d);

      exit;

     end;

   end;

writeln(g,'Khong co');

end;

BEGIN

 kt_ndl;   xuly;

  close(g);

end.

uses crt;
type kmang=array[0..100] of integer;
var fi,fo:text;
    n,k,i,u,v:integer;
    h:kmang;
procedure khoitao;
        begin
                assign(Fi,'DOANDUONG.INP');
                assign(fo,'DOANDUONG.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,h[i]);
                close(fi); rewrite(Fo);
        end;

procedure xuly;
var j,s:integer;
        begin
                for i:=1 to n do
                begin
                        s:=0;
                        for j:=i to n do
                        begin
                                s:=s+h[j];
                                if (s div (j-i+1))=k then
                                begin
                                        u:=i;
                                        v:=j-i+1;
                                        exit;
                                end;
                        end;
                end;
        end;

BEGIN
        khoitao; xuly;
        writeln(fo,u);
        writeln(fo,v);
        close(fo);
END.

Chúc bạn học tốt.

Cho mik xin câu trả lời hay nhất.