Cod sursa(job #18575)
Utilizator | Data | 18 februarie 2007 12:40:51 | |
---|---|---|---|
Problema | Culori | Scor | 0 |
Compilator | fpc | Status | done |
Runda | preONI 2007, Runda 2, Clasa a 10-a | Marime | 0.42 kb |
var f,g:text;
n,i,k,l:longint;
a:array[1..1000] of longint;
begin
assign(f,'culori.in');
assign(g,'culori.out');
reset(F);readln(f,n);
rewrite(G);
for i:=1 to 2*n-1 do readln(f,a[i]);
if a[i]<>a[2*n-1] then writeln(g,0)
else begin
randomize;
k:=random(9901);
writeln(g,k);
end;
close(F);
close(G);
end.