Cod sursa(job #47635)

Utilizator andrei_infoMirestean Andrei andrei_info Data 3 aprilie 2007 21:12:40
Problema Secventa 5 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var    f,g:text;
       i,n,l,u:longint;
       secv : array[1..1050000] of longword;
begin
assign(f,'secv5.in'); reset(f);
assign(g,'secv5.out'); rewrite(g);
readln(f,n,l,u);
for i:=1 to n do
        readln(f,secv[i]);

writeln(g,0);

close(f); close(g);
end.