В квадратной таблице, не содержащей отрицательных элементов, найдите корень…

Program n1; Uses CRT; Const n=5; Var a: array[1… n,1… n] of integer; i,j: integer; k,p: real; beginClrScr; randomize; p: =1; For i: =1 to n do begin For j: =1 to n do begin a[i,j]: =random (10); write (a[i,j]: 2); If (i=j) or (n-i+1=j) then p: =p*a[i,j]; end; writeln; end; k: =sqrt (p); Writeln (k: 4:4); readlnend.