Между населёнными пунктами А, В, С, D, Е построены дороги, протяжённость которых (в километрах) приведена в таблице:
Определите длину кратчайшего пути между пунктами А и E. Передвигаться можно только по дорогам, протяжённость которых указана в таблице.

название программы: Точность .ру

как будет работать: открываем сайт нам задают вопрос по типу цену какого товара вы хотите узнать или же впишите товар, вписываем название и нам выдают точную цену на товар (чтобы его продать или купить) если мы хотим купить товар нам дают ссылку на интернет магазин а если продать на сайт где можно продавать самим.

Доп. функции: мы можем сканировать фотографию товара и программа сама скажет какой цены должен стоить этот товар, можно предлагать программе все возможные цены она будет говорить нужна ли цена больше или меньше.

ну.. не знаю как получилось я просто составила название для программы как она будет работать и доп. функции надеюсь

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.