Cod sursa(job #20593)

Utilizator Tase_CCapalna Tanase Tase_C 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.