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

1.клавиатура,мышь,сканер.микрофон
2.процессор
3.чтение книги,толковый словарь,заучения правила(нащет видеокассеты зависит какое видео)
4.Backspace
5.Рабочий стол
6.операционная система
7.На ПЗУ (не знаю что это постояная память или жесткий диск
8.происходит обработка, связанная с изменением формы информации, но не изменяющая ее содержания
9.Название приложения,кнопка "Свернуть,кнопка "Закрыть",панель инструментов, палітра,рабочая область
10.Жесткий диск,флешка,лазерный диск (для DVD) ,SD-карты
11.Квадрат зелённый

//1
var
  A: array [1..10] of integer;
  i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
  A[i] := random(81)-40;
  write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
  if i mod 2 = 0 then A[i] := sqr(A[i])
  else A[i] := sqr(i);
  write(A[i], ' ');
end;
end.

//2
var
  A: array [1..10] of real;
  i: integer;
begin
randomize;
write('Исходный массив: ');
for i := 1 to 10 do
begin
  A[i] := random(41)-20;
  write(A[i], ' ');
end;
writeln;
write('Измененный массив: ');
for i := 1 to 10 do
begin
  if A[i] < 0 then A[i] := sqr(A[i]);
  if A[i] > 0 then A[i] := sqrt(A[i]);
  write(A[i]:0:2, ' ');
end;
end.

//3
var
  A: array [1..200] of real;
  i, N: byte;
  sum: real;
begin
  write('Введите N = ');
  readln(N);
  sum := 0;
  for i := 1 to N do
  begin
    write('З/П за ', i ,' месяц = ');
    readln(A[i]);
    sum := sum + A[i];
  end;
  writeln('Общий доход = ', sum:0:2);
end.