На рисунке представлена схема дорог связывающих города а б в г д е ж з и к л м н по каждой дороге можно двигаться только в одном направлении, указанном стрелкой. сколько существует различных путей из города а в город н, проходящих через город к? правильно ли я решила?

Var   i,n,h,m,d,r: integer; begin   write('количество детей: '); read(n);   write('высота забора: '); read(h);   writeln('вводите через пробел рост детей (мальчиков - с минусом');   m: =0; d: =0;   for i: =1 to n do   begin       read(r);       if (r< 0) and (-r> h) then inc(m)       else           if r+10> h then inc(d)   end;   writeln('видно мальчиков- ',m,', девочек- ',d) end.   контрольное решение количество детей: 8 высота забора: 112 вводите через пробел рост детей (мальчиков - с минусом -119 -124 118 107 -115 113 -111 105 видно мальчиков- 3, девочек- 4

{1} const   n = 5; var   a: array [1..n] of integer;   i,k,x,l: integer;   t: boolean; begin   for i : = 1 to n do read(a[i]);   k : = 0;   for i : = 1 to n do   begin   t : = true;   x : = a[i]; if x < 0 then x : = -x;   l : = 1;   while l < = x do l : = l*2; l : = l div 2;   while t and (l > 1) do       begin       t : = x > = l;       if t then x : = x - l;       t : = t = (x mod 2 < > 0);       x : = x div 2;       l : = l div 4;       end;   if t then k : = k + 1   end;   write(k) end. {2} const   n = 10; var   a,d: array [1..n] of integer;   i,j,k: integer; begin   for i : = 1 to n do   a[i] : = 100 + random(900);   for i : = 1 to n do   begin   d[i] : = 0;   for j : = 1 to a[i] do       if a[i] mod j = 0 then       d[i] : = d[i] + 1;   end;   for i : = 1 to n-1 do   begin   k : = i;   for j : = i + 1 to n do       if d[j] < d[k] then k : = j;   j : = a[k];   a[k] : = a[i];   a[i] : = j;   j : = d[k];   d[k] : = d[i];   d[i] : = j;   end;   for i : = 1 to n do   write(a[i],' ') end. {3} const   n = 10;   l = 3; var   a: array [1..n] of integer;   m: array [1..l] of integer;   i,j,k: integer; begin   for i : = 1 to n do   begin   a[i] : = random(1001);   write(a[i],' ')   end;   writeln;   for i : = 1 to l do   m[i] : = -1;   for i : = 1 to n do   begin   j : = 1;   while j < = l do       begin       if (a[i] = m[j]) then j : = l else       if (a[i] < m[j]) or (m[j] = -1) then           begin           for k : = l downto j+1 do               m[k] : = m[k-1];           m[j] : = a[i];           j : = l           end;       j : = j + 1       end;   end;   for i : = 1 to l do   if m[i] < > -1 then write(m[i],' ') end.