codeves天梯产生数

　　仅要求输出个数。

分析：这题真心不难==，仔细看一下题目就是给出一些单向边，询问两个点之间是否联通，统计联通数，最后乘法原理相乘即是答案。数字只能在0至9之间转换，就直接用floyed做就好了。（其实觉得数据水了，这种暴力的方法是不能判断首位是否转换为0的==）

var
  f:array[0..9,0..9] of boolean;
  sum:array[0..9] of longint;
  s,a:string;
  k,x,y,i,j,l:longint;
  ans:int64;

begin
  readln(s);
  for i:=1 to length(s) do
    if s[i]<>' ' then
      a:=a+s[i]
    else break;
  delete(s,1,i);
  val(s,k);
  for i:=1 to k do
    begin
      readln(x,y);
      f[x,y]:=true;
  end;
  for i:=0 to 9 do
    f[i,i]:=true;
  for l:=0 to 9 do
    for i:=0 to 9 do
      for j:=0 to 9 do
        if (f[i,l]) and (f[l,j]) then
          f[i,j]:=true;
  for i:=0 to 9 do
    for j:=0 to 9 do
      if f[i,j] then
        inc(sum[i]);
  ans:=1;
  for i:=1 to length(a) do
    ans:=ans*sum[ord(a[i])-48];
  writeln(ans);
end.