최소 고리 구하기

그림의 가장 작은 고리를 구하기 위해 무방향도를 보여 주십시오.
floyd f[k, i, j]의 성질을 이용하여 구하다.

program tt;
const max=1000000;
var n,m,i,j,k,x,y,z,ans:longint;
    f,g:array[1..100,1..100]of longint;
function min(a,b:longint):longint;
begin
 if az then 
	  begin 
	   f[x,y]:=z;
       f[y,x]:=z;
	   g[x,y]:=z;
	   g[y,x]:=z;
	  end;
	end;
   ans:=max;
   for k:=1 to n do
    begin
	 for i:=1 to k-1 do
	  for j:=i+1 to k-1 do//   ，  
	   if (g[i,k]

Dijkstra: