var f,g:text;
n,m,k,i,j,s,sum,ii,jj,nr:integer;
a:array[1..150,1..150]of integer;
begin
assign(f,'distincte.in');
reset(f);
assign(g,'distincte.out');
rewrite(g);
readln(f,n,k,m);
for i:=1 to n do begin
 j:=1;
 readln(f,nr);
 while a[nr,j]<>0 do inc(j);
 a[nr,j]:=i;
end;
for i:=1 to m do begin
 readln(f,ii,jj);
 sum:=0;
 for s:=1 to k do begin
 j:=1;
  while a[s,j]<>0 do begin
                           if(a[s,j]>=ii)and(a[s,j]<=jj)then begin sum:=sum+s;
                                                                 break;
                                                           end;
                            inc(j);
                     end;

end;
 writeln(g,sum);
end;
close(f);
close(g);
end.