var
  a : array [1..100000] of longint;
  m,n,k,i : longint;
begin
  readln(m);
  readln(n);
  for i:=1 to n do readln(a[i]);
  i:=1;
  while (i<=n) and (a[i]<m) do i:=i+1;
  if i>n then
    writeln('нет')
  else
    writeln('да');
end.