Между населёнными пунктами A, B, C, D, E, F, 2 построены дороги, протяжённость которых приведена в таблице. (Отсутствие числа в таблице
означает, что прямой дороги между пунктами нет.)
А
B
C С
D
E
F
Z
A
4
10
15
34
B
4
9
6
C С
10
9
2
D
15
6
2
3
11
15
E
3
8 13
F
11 8
4
Z 34
15 13 4
Определите длину кратчайшего пути между пунктами А и Z (при условии,
что передвигаться можно только по построенным дорогам).
1) 34
2) 30
3) 25
4) 22​

// не совсем понял условие по которому оперделяется нужный индекс

// мне показалось, что это умножение, если не так, то сам исправишь условие

// выхода из цикла

using System;

namespace ConsoleApplicationTest
{
    class Program
    {
        static void Main(string[] args)
        {
            double A_1 = 1;
            double A_2 = 2;
            double A_3 = (A_1 + A_2) / 2;
            Console.Write("D = ");
            double D = double.Parse(Console.ReadLine());
            int k = 3;
            while (Math.Abs(A_3 * A_2) >= D)
            {
                A_1 = A_2;
                A_2 = A_3;
                A_3 = (A_1 + A_2) / 2;
                k++;
            }
            Console.WriteLine("k = {0}; Ak-1 = {1}; Ak = {2}", k, A_2, A_3);
            Console.ReadLine();
        }
    }
}

Program saidim;
uses crt;
var
 m:integer;
begin
  writeln('');
  writeln('**   Переводилка возраста   **');
  writeln('');
  writeln();
  writeln('Введите возраст в месяцах');
  readln(m);
  writeln('*** alphaues is thinking... ***');
  writeln();
 // writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');
  write('Возраст равен ',m div 12);
  case ((m div 12) mod 10) of
    1:  write(' год ');
    2,3,4:  write(' годa ');
    else   write(' лет ');
  end;
  case (m mod 12) of
    0:  writeln(' ровно ');
    1:  writeln(m mod 12,' месяц ');
    2,3,4:  writeln(m mod 12,' месяцa ');
    else   writeln(m mod 12,' месяцев ');
  end;
end.