C++ traducido a pascal
var? x, y:matriz[0..100004]? deseo;
n, I, j, tmp: longint;
ans: int 64; ' taxi . out ');
Asignación (salida, ' taxi . out '); /p>
readln(n, x[0]);
¿Para qué? Yo:=1? ¿A dónde ir? ¿norte? hacer
Inicio
readln(x[i],y[I]);
inc(ans,ABS(y[I]-x[I ] ]));
Fin;
¿Para qué? Yo:=0? ¿A dónde ir? ¿norte? Hacer
¿Para qué? j:=i+1? ¿A dónde ir? n+1? Hacer
¿Y si? (x[I]>x[j])? Luego
Iniciar
tmp:= x[I];
x[i]:=x[j].
x[j]:= tmp;
Fin;
¿Para qué? Yo:=0? ¿A dónde ir? ¿norte? Hacer
¿Para qué? j:=i+1? ¿A dónde ir? n+1? Hacer
¿Y si? (y[I]>y[j])? Luego
Iniciar
tmp:= y[I];
y[I]:= y[j];
y [j]:= tmp;
End;
¿Para qué? Yo:=0? ¿A dónde ir? ¿norte? ¿Hacer lo? inc(ans,ABS(x[I]-y[I]));
writeln(ans);
Fin.