机器翻译只有90、、、、

[h1]var
  m,i,n,ans,j:integer;
  a:array[0..10000]  of integer;
  b:array[0..10000]  of boolean;
  cidian:array[0..10000] of longint;
begin
  assign(input,'translate10.in');
  reset(input);
  assign(output,'translate10.out');
  rewrite(output);
  readln(m,n);
  ans:=0;
  fillchar(b,sizeof(b),false);
  for i:=1 to n do read(a[i]);
  for i:=1 to n do 
    begin
    for j:=1 to m do
     if a[i]=cidian[j] then b[i]:=true;
     if b[i]=false then 
      begin
      inc(ans);
      if ans mod m=0 then cidian[m]:=a[i] else
      cidian[ans mod m]:=a[i];//修改过程中有一次用的j mod m
      end;
     end;
  writeln(ans);
  close(input);
  close(output);
end.[/h1]