program CountOccurrences;

var
  x, n, i, count: integer;
  arr: array of integer;

begin
  writeln('Nhap vao so nguyen x:');
  readln(x);

  writeln('Nhap vao so phan tu cua day:');
  readln(n);

  SetLength(arr, n);

  writeln('Nhap vao day so nguyen:');

  for i := 0 to n - 1 do
  begin
    readln(arr[i]);
    if arr[i] = x then
      count := count + 1;
  end;

  writeln('So lan xuat hien cua so ', x, ' trong day la: ', count);
  readln;
end.