#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ printf(char *, long long);
int /*<<< orphan*/ scanf(char *, int *, ...);
int main() {
  int a[100005], i, n, m, x, y;
  long long b[100005], p[100005];
  scanf("%d", &n);
  for (i = 0; i < n; i++) {
    scanf("%d", &a[i]);
    if (i != 0) {
      b[i] = b[i - 1] + a[i];
      p[i] = p[i - 1] + b[i] * a[i];
    } else {
      b[i] = a[i];
      p[i] = b[i] * a[i];
    }
  }
  scanf("%d", &m);
  for (i = 0; i < m; i++) {
    scanf("%d%d", &x, &y);
    printf("%llu\n", p[y] - p[x - 1] - (b[y] - b[x - 1]) * b[x - 1]);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x1e8510,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xec9(%rip),%rdi
lea    -0x61aa8(%rbp),%rsi
mov    $0x0,%al
call   1040 <scanf@plt>
movl   $0x0,-0x61aa4(%rbp)
mov    -0x61aa4(%rbp),%eax
cmp    -0x61aa8(%rbp),%eax
jge    127b <main+0x15b>
movslq -0x61aa4(%rbp),%rax
lea    -0x61aa0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe83(%rip),%rdi
mov    $0x0,%al
call   1040 <scanf@plt>
cmpl   $0x0,-0x61aa4(%rbp)
je     1213 <main+0xf3>
mov    -0x61aa4(%rbp),%eax
sub    $0x1,%eax
cltq
mov    -0x124fe0(%rbp,%rax,8),%rcx
ff
movslq -0x61aa4(%rbp),%rax
movslq -0x61aa0(%rbp,%rax,4),%rax
ff
add    %rax,%rcx
movslq -0x61aa4(%rbp),%rax
mov    %rcx,-0x124fe0(%rbp,%rax,8)
ff
mov    -0x61aa4(%rbp),%eax
sub    $0x1,%eax
cltq
mov    -0x1e8510(%rbp,%rax,8),%rcx
ff
movslq -0x61aa4(%rbp),%rax
mov    -0x124fe0(%rbp,%rax,8),%rax
ff
movslq -0x61aa4(%rbp),%rdx
movslq -0x61aa0(%rbp,%rdx,4),%rdx
ff
imul   %rdx,%rax
add    %rax,%rcx
movslq -0x61aa4(%rbp),%rax
mov    %rcx,-0x1e8510(%rbp,%rax,8)
ff
jmp    1262 <main+0x142>
movslq -0x61aa4(%rbp),%rax
movslq -0x61aa0(%rbp,%rax,4),%rcx
ff
movslq -0x61aa4(%rbp),%rax
mov    %rcx,-0x124fe0(%rbp,%rax,8)
ff
movslq -0x61aa4(%rbp),%rax
mov    -0x124fe0(%rbp,%rax,8),%rcx
ff
movslq -0x61aa4(%rbp),%rax
movslq -0x61aa0(%rbp,%rax,4),%rax
ff
imul   %rax,%rcx
movslq -0x61aa4(%rbp),%rax
mov    %rcx,-0x1e8510(%rbp,%rax,8)
ff
jmp    1267 <main+0x147>
mov    -0x61aa4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x61aa4(%rbp)
jmp    1151 <main+0x31>
lea    0xd80(%rip),%rdi
lea    -0x61aac(%rbp),%rsi
mov    $0x0,%al
call   1040 <scanf@plt>
movl   $0x0,-0x61aa4(%rbp)
mov    -0x61aa4(%rbp),%eax
cmp    -0x61aac(%rbp),%eax
jge    1345 <main+0x225>
lea    0xd4d(%rip),%rdi
lea    -0x61ab0(%rbp),%rsi
lea    -0x61ab4(%rbp),%rdx
mov    $0x0,%al
call   1040 <scanf@plt>
movslq -0x61ab4(%rbp),%rax
mov    -0x1e8510(%rbp,%rax,8),%rsi
ff
mov    -0x61ab0(%rbp),%eax
sub    $0x1,%eax
cltq
sub    -0x1e8510(%rbp,%rax,8),%rsi
ff
movslq -0x61ab4(%rbp),%rax
mov    -0x124fe0(%rbp,%rax,8),%rax
ff
mov    -0x61ab0(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
sub    -0x124fe0(%rbp,%rcx,8),%rax
ff
mov    -0x61ab0(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
imul   -0x124fe0(%rbp,%rcx,8),%rax
ed ff
sub    %rax,%rsi
lea    0xcd9(%rip),%rdi
call   1030 <printf@plt>
mov    -0x61aa4(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x61aa4(%rbp)
jmp    129a <main+0x17a>
xor    %eax,%eax
add    $0x1e8510,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x1e8508,%rsp
lea    0xeca(%rip),%rdi
mov    %rsp,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmpl   $0x0,(%rsp)
jle    11e2 <main+0xc2>
lea    0xeaf(%rip),%rdi
lea    0x10(%rsp),%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
movslq 0x10(%rsp),%r13
mov    %r13,%r15
imul   %r13,%r15
mov    %r13,0x124fe0(%rsp)
mov    %r15,0x61ab0(%rsp)
cmpl   $0x2,(%rsp)
jl     11e2 <main+0xc2>
mov    $0x1,%r12d
mov    $0x4,%ebx
lea    0xe6f(%rip),%r14
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
lea    (%rsp,%rbx,1),%rsi
add    $0x10,%rsi
mov    %r14,%rdi
xor    %eax,%eax
call   1040 <scanf@plt>
movslq 0x10(%rsp,%rbx,1),%rax
add    %rax,%r13
imul   %r13,%rax
add    %rax,%r15
mov    %r13,0x124fe0(%rsp,%rbx,2)
mov    %r15,0x61ab0(%rsp,%rbx,2)
add    $0x1,%r12
movslq (%rsp),%rax
add    $0x4,%rbx
cmp    %rax,%r12
jl     11a0 <main+0x80>
lea    0xe19(%rip),%rdi
lea    0x4(%rsp),%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
cmpl   $0x0,0x4(%rsp)
jle    1275 <main+0x155>
lea    0xdfd(%rip),%r14
lea    0xc(%rsp),%r15
lea    0x8(%rsp),%r12
lea    0xdf1(%rip),%rbx
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
mov    %r14,%rdi
mov    %r15,%rsi
mov    %r12,%rdx
xor    %eax,%eax
call   1040 <scanf@plt>
movslq 0x8(%rsp),%rax
mov    0x61ab0(%rsp,%rax,8),%rcx
movslq 0xc(%rsp),%rdx
sub    0x61aa8(%rsp,%rdx,8),%rcx
mov    0x124fd8(%rsp,%rdx,8),%rdx
mov    %rdx,%rsi
sub    0x124fe0(%rsp,%rax,8),%rsi
imul   %rdx,%rsi
add    %rcx,%rsi
mov    %rbx,%rdi
call   1030 <printf@plt>
add    $0x1,%ebp
cmp    0x4(%rsp),%ebp
jl     1220 <main+0x100>
xor    %eax,%eax
add    $0x1e8508,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
@.str.1 = [5 x i8] c"%d%d\00"
@.str.2 = [6 x i8] c"%llu\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [100005 x i32]
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca [100005 x i64]
%9 = alloca [100005 x i64]
store i32 0, i32* %1
%10 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %4)
store i32 0, i32* %3
br label %11
11: ; preds = %79, %0
%12 = load i32, i32* %3
%13 = load i32, i32* %4
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %82
15: ; preds = %11
%16 = load i32, i32* %3
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds [100005 x i32], [100005 x i32]* %2, i64 0, i64 %17
%19 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %18)
%20 = load i32, i32* %3
%21 = icmp ne i32 %20, 0
br i1 %21, label %22, label %56
22: ; preds = %15
%23 = load i32, i32* %3
%24 = sub nsw i32 %23, 1
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %25
%27 = load i64, i64* %26
%28 = load i32, i32* %3
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds [100005 x i32], [100005 x i32]* %2, i64 0, i64 %29
%31 = load i32, i32* %30
%32 = sext i32 %31 to i64
%33 = add nsw i64 %27, %32
%34 = load i32, i32* %3
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %35
store i64 %33, i64* %36
%37 = load i32, i32* %3
%38 = sub nsw i32 %37, 1
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds [100005 x i64], [100005 x i64]* %9, i64 0, i64 %39
%41 = load i64, i64* %40
%42 = load i32, i32* %3
%43 = sext i32 %42 to i64
%44 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %43
%45 = load i64, i64* %44
%46 = load i32, i32* %3
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds [100005 x i32], [100005 x i32]* %2, i64 0, i64 %47
%49 = load i32, i32* %48
%50 = sext i32 %49 to i64
%51 = mul nsw i64 %45, %50
%52 = add nsw i64 %41, %51
%53 = load i32, i32* %3
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds [100005 x i64], [100005 x i64]* %9, i64 0, i64 %54
store i64 %52, i64* %55
br label %78
56: ; preds = %15
%57 = load i32, i32* %3
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds [100005 x i32], [100005 x i32]* %2, i64 0, i64 %58
%60 = load i32, i32* %59
%61 = sext i32 %60 to i64
%62 = load i32, i32* %3
%63 = sext i32 %62 to i64
%64 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %63
store i64 %61, i64* %64
%65 = load i32, i32* %3
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %66
%68 = load i64, i64* %67
%69 = load i32, i32* %3
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds [100005 x i32], [100005 x i32]* %2, i64 0, i64 %70
%72 = load i32, i32* %71
%73 = sext i32 %72 to i64
%74 = mul nsw i64 %68, %73
%75 = load i32, i32* %3
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds [100005 x i64], [100005 x i64]* %9, i64 0, i64 %76
store i64 %74, i64* %77
br label %78
78: ; preds = %56, %22
br label %79
79: ; preds = %78
%80 = load i32, i32* %3
%81 = add nsw i32 %80, 1
store i32 %81, i32* %3
br label %11
82: ; preds = %11
%83 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %5)
store i32 0, i32* %3
br label %84
84: ; preds = %118, %82
%85 = load i32, i32* %3
%86 = load i32, i32* %5
%87 = icmp slt i32 %85, %86
br i1 %87, label %88, label %121
88: ; preds = %84
%89 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i32* %6, i32* %7)
%90 = load i32, i32* %7
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds [100005 x i64], [100005 x i64]* %9, i64 0, i64 %91
%93 = load i64, i64* %92
%94 = load i32, i32* %6
%95 = sub nsw i32 %94, 1
%96 = sext i32 %95 to i64
%97 = getelementptr inbounds [100005 x i64], [100005 x i64]* %9, i64 0, i64 %96
%98 = load i64, i64* %97
%99 = sub nsw i64 %93, %98
%100 = load i32, i32* %7
%101 = sext i32 %100 to i64
%102 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %101
%103 = load i64, i64* %102
%104 = load i32, i32* %6
%105 = sub nsw i32 %104, 1
%106 = sext i32 %105 to i64
%107 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %106
%108 = load i64, i64* %107
%109 = sub nsw i64 %103, %108
%110 = load i32, i32* %6
%111 = sub nsw i32 %110, 1
%112 = sext i32 %111 to i64
%113 = getelementptr inbounds [100005 x i64], [100005 x i64]* %8, i64 0, i64 %112
%114 = load i64, i64* %113
%115 = mul nsw i64 %109, %114
%116 = sub nsw i64 %99, %115
%117 = call i32 @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.2, i64 0, i64 0), i64 %116)
br label %118
118: ; preds = %88
%119 = load i32, i32* %3
%120 = add nsw i32 %119, 1
store i32 %120, i32* %3
br label %84
121: ; preds = %84
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.1 = [5 x i8] c"%d%d\00"
@.str.2 = [6 x i8] c"%llu\0A\00"
define i32 @main() {
%1 = alloca [100005 x i32]
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca [100005 x i64]
%7 = alloca [100005 x i64]
%8 = bitcast [100005 x i32]* %1 to i8*
%9 = bitcast i32* %2 to i8*
%10 = bitcast i32* %3 to i8*
%11 = bitcast i32* %4 to i8*
%12 = bitcast i32* %5 to i8*
%13 = bitcast [100005 x i64]* %6 to i8*
%14 = bitcast [100005 x i64]* %7 to i8*
%15 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%16 = load i32, i32* %2
%17 = icmp sgt i32 %16, 0
br i1 %17, label %18, label %45
18: ; preds = %0
%19 = getelementptr inbounds [100005 x i32], [100005 x i32]* %1, i64 0, i64 0
%20 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %19)
%21 = load i32, i32* %19
%22 = sext i32 %21 to i64
%23 = mul nsw i64 %22, %22
%24 = getelementptr inbounds [100005 x i64], [100005 x i64]* %6, i64 0, i64 0
store i64 %22, i64* %24
%25 = getelementptr inbounds [100005 x i64], [100005 x i64]* %7, i64 0, i64 0
store i64 %23, i64* %25
%26 = load i32, i32* %2
%27 = icmp sgt i32 %26, 1
br i1 %27, label %28, label %45
28: ; preds = %18, %28
%29 = phi i64 [ %38, %28 ], [ %23, %18 ]
%30 = phi i64 [ %36, %28 ], [ %22, %18 ]
%31 = phi i64 [ %41, %28 ], [ 1, %18 ]
%32 = getelementptr inbounds [100005 x i32], [100005 x i32]* %1, i64 0, i64 %31
%33 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %32)
%34 = load i32, i32* %32
%35 = sext i32 %34 to i64
%36 = add nsw i64 %30, %35
%37 = mul nsw i64 %36, %35
%38 = add nsw i64 %37, %29
%39 = getelementptr inbounds [100005 x i64], [100005 x i64]* %6, i64 0, i64 %31
store i64 %36, i64* %39
%40 = getelementptr inbounds [100005 x i64], [100005 x i64]* %7, i64 0, i64 %31
store i64 %38, i64* %40
%41 = add nuw nsw i64 %31, 1
%42 = load i32, i32* %2
%43 = sext i32 %42 to i64
%44 = icmp slt i64 %41, %43
br i1 %44, label %28, label %45
45: ; preds = %28, %18, %0
%46 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %3)
%47 = load i32, i32* %3
%48 = icmp sgt i32 %47, 0
br i1 %48, label %49, label %73
49: ; preds = %45, %49
%50 = phi i32 [ %70, %49 ], [ 0, %45 ]
%51 = call i32 (i8*, i32*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i32* %4, i32* %5)
%52 = load i32, i32* %5
%53 = sext i32 %52 to i64
%54 = getelementptr inbounds [100005 x i64], [100005 x i64]* %7, i64 0, i64 %53
%55 = load i64, i64* %54
%56 = load i32, i32* %4
%57 = add nsw i32 %56, -1
%58 = sext i32 %57 to i64
%59 = getelementptr inbounds [100005 x i64], [100005 x i64]* %7, i64 0, i64 %58
%60 = load i64, i64* %59
%61 = sub i64 %55, %60
%62 = getelementptr inbounds [100005 x i64], [100005 x i64]* %6, i64 0, i64 %53
%63 = load i64, i64* %62
%64 = getelementptr inbounds [100005 x i64], [100005 x i64]* %6, i64 0, i64 %58
%65 = load i64, i64* %64
%66 = sub i64 %65, %63
%67 = mul i64 %66, %65
%68 = add i64 %61, %67
%69 = call i32 @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.2, i64 0, i64 0), i64 %68)
%70 = add nuw nsw i32 %50, 1
%71 = load i32, i32* %3
%72 = icmp slt i32 %70, %71
br i1 %72, label %49, label %73
73: ; preds = %49, %45
ret i32 0
}