机器翻译（noip2010）

var
  m,n,sum:longint;
  q:array[0..1000] of longint;
  head,tail:longint;
  procedure init;
  var bo:boolean;
  i,j,x:longint;
  begin
    readln(m,n);
    head:=0;tail:=0; sum:=0;
    for i:=1 to n do
      begin
        bo:=false;
        read(x);
        for j:=head+1 to   tail do
          if q[j]=x then
            begin   bo:=true;   break; end;
        if not bo  then
          begin
            if  tail-head>=M then  inc(head);
            inc(tail);  q[tail]:=x;inc(sum);
          end
      end;
      writeln(sum);
  end;
begin
  assign(input,‘translate.in‘);reset(input);
  assign(output,‘translate.out‘); rewrite(output);
  init;
  close(input); close(output);
end.