program demsoluong;

uses crt;

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

      m,n,i,d:integer;

begin

       clrscr;

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

       write(‘Nhap so luong phan tu N: ‘);  readln(n);

       d:=0;

       for i:=1 to n do

              begin

                     write(‘A[‘,i,’]= ‘);    readln(A[i]);

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

              end;

       write(‘Trong day A co ‘,d,’ phan tu bang ‘,m);

       readln;

end