const n = 500;

st = time;

for i = 1 to n
  for j = 1 to n
    if (random(2)=1)
      d[i, j] = random(10000)
    else
      d[i,j] = INFINITY;

for k = 1 to n
  for i = 1 to n
    for j = 1 to n
	  if (d[i, k] + d[k, j] < d[i, j])
	    d[i, j] = d[i, k] + d[k, j];

время работы <- время - st;