Cod sursa(job #14980)

Utilizator andrei_infoMirestean Andrei andrei_info Data 10 februarie 2007 14:39:40
Problema Secventa 5 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.18 kb
Raporteaza aceasta sursa 
var x:array[1..1 shl 21] of longint;
    n,i:longint;
    f:text;

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