Cod sursa(job #197634)

Utilizator DeadEyeNaiba Mihai Lucian DeadEye Data 5 iulie 2008 12:38:14
Problema Grigo Scor 0
Compilator fpc Status done
Runda Junior Challenge 2008 Marime 0.28 kb
Raporteaza aceasta sursa 
var f,g:text;
    n,m,i,j:longint;
    a:array[1..100000] of longint;
begin
    assign(f,'grigo.in'); reset(f);
    assign(g,'grigo.out'); rewrite(g);
    read(f,n,m);
    for i:=1 to m do read(f,a[i]);
    randomize;
    writeln(g,random(1000003));
    close(f); close(g);
end.