Cod sursa(job #16951)

Utilizator andrei_infoMirestean Andrei andrei_info Data 14 februarie 2007 15:51:33
Problema Secventa 5 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var n,l,u:longint;
    x:array[1..1000000] of longint;
    i:longint;
begin
assign(input,'secv5.in'); reset(input);
assign(output,'secv5.out'); rewritE(output);
readln(n,l,u);
for i:=1 to n do
        readln(x[i]);

writeln(0);
close(input);
close(output);
end.