program Cina;

const N = 100;
var hlasy : array[1..N] of integer;
    i, x, k, c : integer;

begin
  k := 0;                                       { Najdeme kandidáta. }
  c := 0;
  for i := 1 to N do
    begin
      readln (x);
      hlasy[i] := x;
      if c = 0 then k := x;
      if k = x then inc (c) else dec (c);
    end;

  c := 0;                                       { Ověříme, zda vyhrál. }
  for i := 1 to N do
    begin
      x := hlasy[i];
      if k = x then inc (c);
    end;

  if 2 * c > N then
    writeln ('Vyhrál kandidát číslo ', k, '.')
  else
    writeln ('Nikdo nevyhrál.')
end.