Вчем разница между режимом отображения формул режим отображения значений

Значение это решение, а формула это буквенное выражение вместо которого нужно ставить цифры

Первый поразрядно переводим в десятичную f * 16^2 + 4 * 16^1 + 1 * 16^0 = 3905 второй можно перевести десятичную 5 * 15^1 + 13 * 15^0 = 88 потом в восьмеричную 88 / 8 = 11 88 - 88 = 0 11 - 8 = 3 11 / 8 =  1 будет 130 третье аналогично 1 * 7^2 + 2 * 7^1 + 5 * 7^0 = 68  переводим в двоичную 64 + 4 = 100 0100 четвёртое просто переводим в двоичную, потом из двоичной в шестнадцатеричную 273 = 010 111 011 разбиваем двоичное число на секции по 4 с начала и переводим их в 16 систему счисления 1011 1011 = bb

// Реализация алгоритма Дейкстры (см. Вики)

// При вводе

// 6 2 3

// 255 3 7 255 255 2

// 3 255 255 255 255 255

// 7 255 255 3 1 255

// 255 255 3 255 1 2

// 255 255 1 1 255 255

// 2 255 255 2 255 255

// Выдает: 9
// Это и есть кратчайший путь

// Pascal ABC.NET

var

 gr: Array of Array of Word;

 best: Array of Word;

 proceed: Array of Boolean;

 n, s, f, last: Word;

 fIn, fOut: text;

begin

 //Init

 Assign(fIn, 'INPUT.TXT');

 Assign(fOut, 'OUTPUT.TXT');

 Reset(fIn);

 Rewrite(fOut);

 Read(fIn, n, s, f);

 Dec(s);

 Dec(f);

 SetLength(gr, n);

 for var i := 0 to n-1 do

   SetLength(gr[i], n);

 best := ArrFill(n, Word.MaxValue);

 SetLength(proceed, n);

 //Input Gr

 for var i := 0 to n-1 do

   for var j := 0 to n-1 do begin

     var buffer: Integer;

     Read(fIn, buffer);

     if buffer < 0 then

       buffer := Integer.MaxValue;

     gr[i, j] := Word(buffer);

   end;

 //Init S-node

 best[s] := 0;

 proceed[s] := true;

 last := s;

 //Algorithm

 loop n-1 do begin

   for var i := 0 to n-1 do

     if not proceed[i] then

       best[i] := Min(best[i], best[last] + gr[last][i]);

   var minim := Word.MaxValue;

   for var i := 0 to n-1 do

     if (not proceed[i]) and (best[i] < minim) then begin

       minim := best[i];

       last := i;

     end;

   proceed[last] := true;

   //PrintLn(best);

   //PrintLn(last);

 end;

 //Output

 if best[f] >= Word.MaxValue then

   WriteLn(fOut, -1)

 else

   WriteLn(fOut, best[f]);

 Close(fIn);

 Close(fOut);

end.