Дана целочисленная квадратная матрица проверьте являются ли все числа расположенные ниже главной и побожной диагоналей одинаковыми

Var

A:array[1 ... 13,1 ... 13] of integer;

i, j, n, M, k, C:integer;

Begin

Randomize;

N:=Random (13) + 1;

M:=N div 2 + 2;

WriteLn ('Исходный массив (', N,') : ') ;

For i: = 1 to N do

Begin

For j: = 1 to N do

Begin

A[i, j]:=random (N*2+1) - N;

Write (A[i, j]:3,' ') ;

End;

WriteLn

End;

k:=1;

if (N>2) then

Begin

C:=A[M, N-M+2];

For i: = M to N do

For j: = N-i+2 to i-1 do

if A[i, j] C then k:=0;

if k 0 then WriteLn ('Да')

else WriteLn ('Нет')

End

else WriteLn ('В массиве нет элементов ниже главной и побочной диагоналей.') ;

End.