Cod sursa(job #15957)

Utilizator andrei_infoMirestean Andrei andrei_info Data 11 februarie 2007 21:50:39
Problema Secventa 5 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.19 kb
Raporteaza aceasta sursa 
var x:array[1..1048576] of longint;
    n,i,l,u:longint;
    f:text;

begin
assign(f,'secv5.in'); reset(f);
readln(f,n,l,u);
for i:=1 to n do
        readln(f,x[i]);
close(f);
end.