{
  Conta o numero de ocorrencias do valor maximo entre N
  valores fornecidos pelo usuario.
}
program ocorre_max;
var
   n, i, max, c, v : integer;

begin
   write ('N: ');
   read  (n);

   if (n > 0) then
   begin
      read(max);           { O primeiro valor lido e' o valor  maximo   }
                           { conhecido ate' o momento.                  }
      c := 1;              { Uma ocorrencia do maximo conhecido.        }
      
      i := 2;
      while (i <= n) do
      begin
	 read(v);
	 if v = max then
	       c := c + 1 { mais uma ocorrencia do maximo }
	 else
	    if v > max then   { novo maximo }
	    begin
	       max := v;
	       c := 1; { uma unica ocorrencia do novo maximo }
	    end;
	 i := i+1;
      end;

      writeln;
      write ('O valor maximo ', max, ' apareceu ');
      if c = 1 then
	 writeln ('1 vez.')
      else
	 writeln(c, ' vezes.');
   end;
end.