var f,g:text;
    n,m,k,s,i,j,x,y:longint;
    a,b,c:array[1..100000]of longint;

begin
assign(f,'distincte.in');
reset(f);
readln(f,n,k,m);
for i:=1 to n do begin
   readln(f,x);
   b[i]:=c[x];
   c[x]:=i;
   a[i]:=x;
end;
assign(g,'distincte.out');
rewrite(g);
for i:=1 to m do begin
   s:=0;
   readln(f,x,y);
   for j:=x to y do
      if b[j]<x then s:=s+a[j];
   writeln(g,s);
end;
close(g);
end.