Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) приведена в таблице.

Определите длину кратчайшего пути между пунктами A и F, не проходящего через пункт Е. Передвигаться можно только по дорогам, указанным в таблице очень нужно

1) Одновременно запускаем часы на 3 и 8 минут. После того как истекут часы на 3 мин. - переворачиваем их и ждем еще 3 мин. И снова переворачиваем.
2)  Наблюдаем за часами на 8 мин. после 1-го пункта в них осталось песка на 2 минуты. Ждем пока они истекут и сразу начинаем варить зелье.
3) Тем временем в малых часах осталась одна минута, когда она истекает просто перевернем их два раза, тем самым зелье будет вариться 7 минут. 
(1 мин после 1-2 пунктов + 3 мин + 3 мин. = 7 мин.).

В условии не сказано, когда именно нужно начинать варить, так что допускаю такое решение задачи будет правильным.

program raf105;

const

 n = 3;

var

 m: array[1..n, 1..n] of integer;

 x: boolean;

 i,j: integer;

begin

 writeln('Матрица:');

 for i:=1 to n do

 begin

   x:= True;

   for j:=1 to n do

   begin

     m[j,i]:= random(10,99);

     write(m[j,i],' ');

   end;

   writeln;

 end;

   

 writeln('Номера убывающих строк:');

 for i:=1 to n do

 begin

   x:= True;

   for j:=2 to n do

     if not(m[j,i] < m[j-1,i]) and x then

       x:= False;

   if x then

     write(i,' ');

 end;  

end.

PascalABC