Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,k,d,dk: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
Write('Nhap k: '); Readln(k);
d:=0; dk:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]=0 then inc(d);
If A[i]=k then inc(dk);
End;
If dk<>0 then Write('Vi tri: ')
Else Write('Khong co');
For i:=1 to n do
If A[i]=k then Write(i,' ');
Writeln;
Write('Co ',d,'so bang 0');
Readln
End.