n，I，j，tmp:longint；
ans:int 64；
開始
賦值(輸入，' taxi . in ')；
賦值(output，' taxi . out ')；
復位(輸入)；
重寫(輸出)；
readln(n，x[0])；
為了什麽？我:=1？去哪？n？做
開始
readln(x[i]，y[I])；
inc(ans，ABS(y[I]-x[I]))；
結束；
為了什麽？我:=0？去哪？n？做
為了什麽？j:=i+1？去哪？n+1？做
如果？(x[I]& gt；x[j])？然後
開始
tmp:= x[I]；
x[i]:=x[j]。
x[j]:= tmp；
結束；
為了什麽？我:=0？去哪？n？做
為了什麽？j:=i+1？去哪？n+1？做
如果？(y[I]& gt；y[j])？然後
開始
tmp:= y[I]；
y[I]:= y[j]；
y[j]:= tmp；
結束；
為了什麽？我:=0？去哪？n？做什麽？inc(ans，ABS(x[I]-y[I]))；
writeln(ans)；
結束。