4.3.3. Problemas de caminos mínimos.
for i:= 1 to N-1 do begin
v:= vértice con D[v] mínimo y S[v]=false;
for cada nodo w adyacente a v do
if D[v]+C[v, w]<D[w] then begin
S: array [2..N] of boolean;
D: array [2..N] of integer;
{ Costos de los caminos }
P: array [2..N] of integer;
C: array [1..N, 1..N] of integer;
{ Matriz de costos de todas
procedure ImprimeCamino (v: integer);