B1.Nhập n,k;

B2.vị trí =0;

B3.Chạy i từ 1 đến n:

-Nhập a[i]

-Nếu k=a[i] thì vị trí=i

B3.Nếu vị trí khác 0:

-Xuất vị trí;

Không thì:

-Thông báo vị trí không tồn tại;

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.