Расчет сетевой модели методом Форда (с программой)

'О методе','О программе','Выход').' ИССЛЕДОВАНИЯ ОПЕРАЦИЙ ', ' ', ' Метод Форда.{ Автор: }.{ Версия: v1.0 }.PROGRAM ford; uses crt,graph; const menu:array [0..4,1..6] of string =.(('Ввод данных','Решение задачи','Вывод результата'.('Ввод данных','Просмотр данных','Назад','','','').FUNCTION min:real; begin s:=0; for i:=1 to n do if (s=0) and (k [i] -1) then s:=k [i] else if (k [i].Type matr = array [0..20,0..20] of real; coord = array [1..20,1..2] of real.