Cod sursa(job #18637)

Utilizator alex_damianDamian Alexandru alex_damian Data 18 februarie 2007 12:52:02
Problema Culori Scor 0
Compilator fpc Status done
Runda preONI 2007, Runda 2, Clasele 11-12 Marime 0.2 kb
Raporteaza aceasta sursa 
var x:integer;
    f,g:text;

begin
assign(f,'culori.in');reset(f);
assign(g,'culori.out');rewrite(g);
readln(f,x);
randomize;
writeln(g,random(x * (x+1)) mod 9901);
close(f);
close(g);
end.