var f,g:text;
    n:integer;
    i,j:longint;
    v:array[1..7999,1..2] of longint;
    s:longint;
procedure load;
begin
assign(f,'heavymetal.in');
reset(f);
readln(f,n); s:=0;
for i:=1 to n do
for j:=1 to 2 do
begin
read(f,v[i,j]);
if v[i,j]-v[i+1,j-1] > 0 then
s:=s+(v[i,2]-v[1,i]);
end;
close(f);
end;
procedure scrie;
begin
assign(f,'heavymetal.out');
rewrite(f);
writeln(s);
close(f);
end;
BEGIN
load;
scrie;
END.