Cod sursa(job #197855)

Utilizator tamas_iuliaTamas Iulia tamas_iulia Data 6 iulie 2008 18:52:13
Problema Grigo Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
const x=1000003;
var rez: int64;
    viz : array[0..100010] of byte;
    i,j,n,m : longint;
    f,g : text;
begin
  assign(f,'grigo.in');reset(f);
  assign(g,'grigo.out');rewrite(g);
  read(f,n,m);
    for i:=1 to m do
    begin
      read(f,j);
      viz[j]:=1;
    end;
  rez:=1;
    for i:=2 to n do
      if viz[i]=0 then
        rez:=(rez*(i-1))mod x;
  writeln(g,rez);
  close(g);
end.