На приведенной схеме дороги, связывающие города А, Б, В, Г, Д, Е, Ж, З, И, К, Л, М. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей, ведущих из города А в город М и не проходящих через город Е?

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
  var n := readinteger('Размер массива ');
  //Для теста заполним массив сл. числами
  var a := arrrandom(n); a.Println;
  var x:=readinteger('Введите число Х');
  if x in a then writeln('массив содержит число ', x)
  else writeln('массив не содержит число ', x)
end.

Тест №1
Размер массива  10
96 14 36 84 55 1 74 99 72 20
Введите число Х 14
массив содержит число 14

Тест №2
Размер массива  10
59 9 8 98 75 34 52 63 62 17
Введите число Х 55
массив не содержит число 55

Program Zvezda;
Uses GraphABC;  
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111);   Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321);   End.