задание 2 ,под цифрой 3пж)))

Const
   N = 3;
Var
   A:array[1..N,1..N] of integer;
   i,j:integer;
   P:real;
Begin
Randomize;
WriteLn('Начальная матрица A(',N,',',N,'):');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
P:=1;
For i:= 1 to N do
    P:=P*A[i,N-i+1];
WriteLn('Творенье частей побочной диагонали: ',P);
End.

Образцы работы программки:

Начальная матрица A(3,3):
 -6   5   0
 -1  -3  -1
 -2  -4  -3
Творение частей побочной диагонали: 0



Исходная матрица A(3,3):
 -7  -6 -10
 -3   8  10
  4   0 -10
Произведение частей побочной диагонали: -320