Укажите все возможные варианты прохождения сообщения от абонента а1 до абонента а2 для ниже архитектуры сети ​

Алгоритм:
Объявляем 4 переменные вещественного типа и считываем их.
Выводим математическую формулу, для вычисления стоимости.
Количество бензина на 1 км пути * удвоенное расстояние до дачи * цена бензина.

Ниже приведена программа на языке Паскаль

var
S, count, price, ans:real;
Begin
Writeln('Введите расстояние до дачи -> ');Readln(s);
Writeln('Введите расход бензина на 100 км пути -> ');Readln(count);
Writeln('Введите цену бензина -> ');Readln(price);
ans:= ((count/100)* 2*s * price );
Writeln('Стоимость поездки: ', ans);
end.

Пример:
Введите расстояние до дачи ->
28.54
Введите расход бензина на 100 км пути ->
13.1
Введите цену бензина ->
45
Стоимость поездки: 336.4866

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var avg:=a.ElementsByRow.Average;
  Writeln('Среднее значение ',avg);
  var min:=(a.ElementsWithIndexes.Select(t->(Abs(t[0]-avg),t[1],t[2]))
      .MinBy(t->t[0]));
  Writeln('Наименее отличающийся от среднего элемент A[',
      min[1]+1,',',min[2]+1,'] = ',a[min[1],min[2]])
end.

Пример
Количество строк и столбцов в массиве: 5 7
*** Исходный массив ***
 -10  29 -69  98  40 -87 -64
  74 -36 -62 -86  -3  -6 -48
  -4  57  46 -23 -70  -5  25
 -98  -2  23   9 -42  77  65
 -57 -77  30  48 -52 -33   5

Среднее значение -8.8
Наименее отличающийся от среднего элемент A[1,1] = -10