欧拉回路，SPFA算法PASCAL参考程序

欧拉回路
const maxn=100;
var
g:array[1..maxn,1..maxn] of longint;
du:array[1..maxn] of longint;
circuit:array[1..maxn] of longint;
n,circuitpos,i,j,start,oddnumber:longint;

procedure setIO;
begin
assign(input,'one.in');
reset(input);
assign(output,'one.out');
rewrite(output);
end;

procedure find_circuit(i:longint);
var j:longint;
begin
for j:=1 to n do
if g[i,j]=1 then
begin
g[i,j]:=0;
g[j,i]:=0;
find_circuit(j);
end;
circuitpos:=circuitpos+1;
circuit[circuitpos]:=i;
end;

begin
// setIO;
read(n);
for i:=1 to n do
begin
du[i]:=0;
for j:=1 to n do
begin
read(g[i,j]);
du[i