...
sum:=0;
for i:=1 to n do
sum:=sum + R[i] - L[i];
...