Cod sursa(job #16949)

Utilizator andrei_infoMirestean Andrei andrei_info Data 14 februarie 2007 15:50:09
Problema Secventa 5 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
var n,l,u:longint;
    x:array[1..1 shl 20] 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
        read(x[i]);

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