Cod sursa(job #20593)
Utilizator | Data | 21 februarie 2007 20:06:13 | |
---|---|---|---|
Problema | Secv | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.2 kb |
var n,nr,i:longint;
begin
assign(input,'secv.in');reset(input);
assign(output,'secv.out');rewrite(output);
readln(n);
for i:=1 to n do read(nr);
writeln('-1');
close(input);close(output);
end.