{
 Conta quantas vezes apareceu o valor x entre N valores
 fornecidos pelo usuario.
}
program ocorre_x;
var
   x, n, c, v : integer;
begin
   writeln;
   write('x: ');
   read(x);
   write('N: ');
   read(n);

   c := 0;
   while (n > 0) do
   begin
      read(v);
      if (v = x) then
	 c := c + 1;
      n := n-1;
   end;

   write ('O valor ', x);
   if (c = 0) then
      writeln(' nao apareceu nenhuma vez.')
   else
      if (c = 1) then
	 writeln(' apareceu 1 vez.')
      else
	 writeln(' apareceu ', c, ' vezes.');
end.