记录编号	831	评测结果	AAAAAAAAAA
题目名称	找最佳通路	最终得分	100
用户昵称	打不死的羊	是否通过	通过
代码语言	Pascal	运行时间	10.000 s
提交时间	2008-07-22 15:58:12	内存使用	0.00 MiB

program ex;
type
fxz1=array[1..50,1.. 50] of boolean;
fxz2=array[1..50] of boolean;
var
f1,f2:text;
i,j,x,y,e,s,m,n,min:longint;
city:fxz1;
way:fxz2;
procedure sousuo(s,step:integer);
var
i:integer;
begin
if s=e then begin if step<=min then min:=step;end
                         else begin
                              if way[s] then
                              for i:=1 to n do
                              if city[s,i] then begin
                              way[s]:=false;sousuo(i,step+1);
                                                end;
                              way[s]:=true;
                              end;
end;
begin
assign(f1,'city.in');
assign(f2,'city.out');
reset(f1);rewrite(f2);
readln(f1,n,m,s,e);
for i:=1 to n do
begin
 way[i]:=true;
 for j:=1 to n do
 city[i,j]:=false;
end;
for i:=1 to m do
begin readln(f1,x,y);city[x,y]:=true;end;
min:=51;
sousuo(s,1);
writeln(f2,min);
close(f1);close(f2);
end.