uses crt;
var x,n,i,dem:longint; a:array[1..100000]of longint;
begin
clrscr;
   write('n=');readln(n);
   write('x=');readln(x);
   for i:=1 to n do
      begin
         write('Phan tu thu ',i,' cua mang: ');readln(a[i]);
         if a[i]=x then inc(dem);
      end;
   if dem=0 then writeln(x,' khong co trong mang.') else
   writeln(x,' xuat hien ',dem,' lan.');
readln
end.

//////////////////////////////////

Test:

program ct;

uses crt;

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

      i,n,x,d:integer;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap A[',i,']: '); readln(A[i]);

     end;

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

   for i:=1 to n do

      if x=A[i] then inc(d);

   if d<>0 then write(x,' xuat hien trong mang ',d,' lan');

                 else write(x,' khong xuat hien trong mang');

readln;

end.