двумерный целочисленный массив порядка 10x10 заполняется случайными числами. Найти : произведение элементов главной и побочной диагонали

const n=10;var a:array[1..n,1..n] of integer;i,j:integer; p1,p2:real;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to n do  begin  a[i,j]:=random(20);  write(a[i,j]:4);  end;  writeln; end;p1:=1; p2:=1;for i:=1 to n do begin p1:=p1*a[i,i]; p2:=p2*a[i,n-i+1] end;writeln('p1 = ',p1,' p2 = ',p2);end.Пример (для n=5):Исходный массив:   1  10  14   0   5  12  13  13   5   0   7   7   8   7  14   5  11   3  17  14  12   1  19  17  10p1 = 17680 p2 = 26400