Помогите пожалуйста.Дана матрица 5 на 5. Найти наименьшее из значений элементов побочной диагонали и двух соседних с ней линий ( Pascal ABC ).

А нет прости

Сек

Не туда посмотрел

Все, поправил.

спасибо большое

var  A: array[1 .. 5,1 .. 5] of integer;  i, j, n, min: integer;beginrandomize;n := 5;writeln('Случайная матрица:');for i:=1 to n dobegin  for j:=1 to n do  begin    A[i,j]:=Random(51)-25;    write(A[i,j]:4);  end;  writeln;end;//Верхняяj := n;min := A[1, n - 1];for i := 1 to n - 1 dobegin  j := j - 1;  if A[i, j] < min then min := A[i, j];end;writeln('Наименьший элемент соседней верхней диагонали: ',min);//Побочнаяj := n + 1;min := A[1, n];for i := 1 to n dobegin  j := j - 1;  if A[i, j] < min then min := A[i, j];end;writeln('Наименьший элемент побочной диагонали: ',min);//Нижняяj := n + 1;min := A[2, n];for i := 2 to n dobegin  j := j - 1;  if A[i, j] < min then min := A[i, j];end;writeln('Наименьший элемент соседней нижней диагонали: ',min);end.