Сформировать вещественную матрицу 5х5. Вычислить произведение отрицательных элементов, находящихся над и под главной

program Project1;const N=2;var a: array [1..N, 1..N] of real;i, j: integer;p1, p2: real;beginRandomize;p1:=1;p2:=1;for i:= 1 to N dobeginfor j:= 1 to N dobegina[i,j]:= -5+10*Random;Write(a[i,j]:6:2);if a[i,j]<0 thenbeginif j>i then p1:=p1*a[i,j];if j