program dem_k;

uses crt;

var A:array[1..1000] of integer;

     m,i,k,d:integer;

begin

       clrscr;

       write('Nhap k: ');   readln(k);

       write('Nhap M: ');  readln(m);

       d:=0;

       for i:=1 to m do

              begin

                     write('A[',i,']= ');  readln(A[i]);

                     if A[i]=k then d:=d+1;

              end;

       if d=0 then write('Khong co')

       else

              begin

                     write('Co ',d,' so: ');

                     for i:=1 to n do

                            if A[i]=k then write(i,' ');

              end;

       readln;

end.

var k: integer;

      a: array[1..250] of integer;

      i, m, d: byte;

Begin

     Write('m = '); readln(m);

     Write('k = '); readln(k);

     D:=0;

     For i:=1 to m do 

        Begin

           Write('a[', i, '] = ');

           readln(a[i]);

        End;

     For i:=1 to m do if a[i]=k then

        Begin

            write(i, ' '); d:=d+1;

        End;

     If d=0 then write('khong co!');

     Readln

End.