Cod sursa(job #222272)

Utilizator Tase_CCapalna Tanase Tase_C Data 21 noiembrie 2008 17:50:54
Problema Grigo Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
var n,m,nr,i:longint;
    v:array[1..100000]of integer;
    r:int64;
begin
read(n,m);
 for i:=1 to m do begin
  read(nr);
  v[nr]:=1;
 end;
 for i:=1 to n do
  if v[i]=0 then r:=(r*(i-1))mod 1000003;
end.