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.

uses crt;

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

i, n, k, d : integer;

begin

clrscr;

write('Nhap so n, k = '); readln(n, k);

write('Nhap mang gom ', n ,' so : ');

for i := 1 to n do begin read(A[i]);

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

if d = 0 then write('Day khong ton tai k ')

else begin write('Cac vi tri k : ');

for i := 1 to n do if A[i] = k then write(i : 3);

writeln; write('Day co ', d ,' gia tri bang k'); end;

readln

end.