Cod sursa(job #222273)

Utilizator Tase_CCapalna Tanase Tase_C Data 21 noiembrie 2008 17:54:01
Problema Grigo Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var n,m,i:longint;
    v:array[1..100000]of integer;
    r:int64;
begin
assign(input,'grigo.in');reset(input);
assign(output,'grigo.out');rewrite(output);
readln(n,m);
 for i:=1 to m do begin
  read(r); v[r]:=1;
 end;
 r:=1;
 for i:=1 to n do
  if v[i]=0 then r:=r*(i-1) mod 1000003;
 writeln(r);
close(input);close(output);
end.