求指点
程序：
var
s,s1:ansistring;
m:array[0..10,0..10]of boolean;
f:array[0..10]of longint;
n,i,j,k,x,y:longint;
ans:qword;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then break;
s1:=copy(s,i+1,length(s)-i);
delete(s,i,length(s)-i+1);
val(s1,k);
for i:=1 to k do
begin
readln(x,y);
m[x,y]:=true;
end;
for i:=0 to 9 do
for j:=0 to 9 do
if i=j then m[i,j]:=true;
for k:=0 to 9 do
for i:=0 to 9 do
for j:=0 to 9 do
if (i<>j) and m[i,k] and m[k,j] then m[i,j]:=true;
for i:=0 to 9 do
for j:=0 to 9 do
if m[i,j] then inc(f[i]);
ans:=1;
for i:=1 to length(s) do
if f[ord(s[i])-48]>0 then ans:=ans*f[ord(s[i])-48];
write(ans);
end.