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

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";ПЕР  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)    КОН;    Вывод.Цепь("^")  КОНКОН Задание.