Cod sursa(job #37910)
| Utilizator |  Matei Misarca M@2Te4i |
Data | 25 martie 2007 13:03:21 |
|---|---|---|---|
| Problema | Regiuni | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.19 kb |
var n:integer;
begin
assign(input,'regiuni.in');
reset(input);
assign(output,'regiuni.out');
rewrite(output);
read(n);
randomize;
write(random(n));
close(input);
close(output);
end.