Farmer John每年有很多柵欄要修理。他總是騎着馬穿過每一個柵欄並修復它破損的地方。John是一個與其他農民一樣懶的人。他討厭騎馬，因此從來不兩次經過一個柵欄。你必須編一個程序，讀入柵欄網絡的描述，並計算出一條修柵欄的路徑，使每個柵欄都恰好被經過一次。John能從任何一個頂點(即兩個柵欄的交點)開始騎馬，在任意一個頂點結束。每一個柵欄連接兩個頂點，頂點用1到500標號(雖然有的農場並沒有500個頂點)。一個頂點上可連接任意多(>=1)個柵欄。兩頂點間可能有多個柵欄。所有柵欄都是連通的(也就是你可以從任意一個柵欄到達另外的所有柵欄)。你的程序必須輸出騎馬的路徑(用路上依次經過的頂點號碼錶示)。我們如果把輸出的路徑看成是一個500進制的數，那麼當存在多組解的情況下，輸出500進製表示法中最小的一個 (也就是輸出第一個數較小的，如果還有多組解，輸出第二個數較小的，等等)。輸入數據保證至少有一個解。
輸入描述 Input Description
第1行: 一個整數F(1 <= F <= 1024)，表示柵欄的數目
第2到F+1行: 每行兩個整數i, j(1 <= i,j <= 500)表示這條柵欄連接i與j號頂點。
輸出描述 Output Description
輸出應當有F+1行，每行一個整數，依次表示路徑經過的頂點號。注意數據可能有多組解，但是隻有上面題目要求的那一組解是認爲正確的。樣例輸入 Sample Input
9
1 2
2 3
3 4
4 2
4 5
2 5
5 6
5 7
4 6
樣例輸出 Sample Output
1
2
3
4
2
5
4
6
5
7
代碼：
var
a:array[0..2000]of longint;
d:array[0..500]of longint;
e,v:array[0..500,0..500]of longint;
x,y,i,f,n,s1:longint;
procedure dfs(t:longint);
var
s2,j:longint;
begin
for j:=1 to 500 do
if (e[t,j]=1)and(v[t,j]>0) then
begin
dec(v[j,t]);
dec(v[t,j]);
dfs(j);
end;
inc(f);
a[f]:=t;
end;
procedure init;
var
k:longint;
begin
readln(n);
s1:=maxlongint;
for i:=1 to n do
begin
readln(x,y);
if x<s1 then s1:=x;
if y<s1 then s1:=y;
e[x,y]:=1;
e[y,x]:=1;
d[x]:=d[x]+1;
d[y]:=d[y]+1;
v[x,y]:=v[x,y]+1;
v[y,x]:=v[y,x]+1;
end;
end;
procedure main;
begin
for i:=1 to 500 do
if d[i] mod 2=1 then
begin
s1:=i;
break;
end;
dfs(s1);
end;
procedure print;
begin
for i:=f downto 1 do
writeln(a[i]);
end;
begin
init;
main;
print;
end.