DOANLT PASCAL

// chuyentin.pro - lop hoc chuyen tin truc tuyen
var n:longint;
       a,f:array[0..1000005] of int64;

procedure nhap;
var i:longint;
begin
    readln(n);
    for i:=1 to n do 
        read(a[i]);
end;

procedure tinh_f;
var i:longint
begin
    f[0]:=0;
    for i:=1 to n do f[i]:=f[i-1]+a[i];
end;

procedure giai;
var i,m,x,y:longint;
begin
    read(m);
    for i:=1 to m do 
    begin
           readln(x, y);
           writeln(f[y]-f[x-1]);
       end;
end;


begin
//assign(input, 'doanlt.inp');reset(input);
//assign(output, 'doanlt.out');rewrite(output);
    nhap;
    tinh_f;
    giai;
end.