Помогите с третьим номером. нужно составить программу

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\"; ПЕР   A: РЯД 3, 3 ИЗ ЦЕЛ;   сч1, сч2: ЦЕЛ;   СПДС, МЭПС: ЦЕЛ; УКАЗ   СПДС := 0;   ОТ сч1 := 0 ДО 2 ВЫП     ОТ сч2 := 0 ДО 1 ВЫП       УВЕЛИЧИТЬ(СПДС, A[сч1, сч2])     КОН   КОН;      МЭПС := A[0, 0];   ОТ сч1 := 1 ДО 2 ВЫП     ЕСЛИ A[0, сч1] < МЭПС ТО МЭПС := A[0, сч1] КОн   КОН;      ОТ сч1 := 0 ДО 2 ВЫП     ОТ сч2 := 0 ДО 2 ВЫП       Вывод.ЧЦел("%d ", A[сч1, сч2], 0, 0, 0)     КОН;     Вывод.Цепь("^")   КОН КОН Задание.