Помогите решить задачку (Паскаль) Дана матрица B (4,4) 1) Найти произведение…

Uses crt; const n=4; var b: array[1… n,1… n] of integer; i,j,pr,k,t,min: integer; beginrandomize; pr: =1; for i: =1 to n dofor j: =1 to n dob[i,j]: =random (100) -50; for i: =1 to n dobeginfor j: =1 to n dowrite (b[i,j]: 3); writeln; end; writeln; k: =1; t: =3; repeatfor i: =k to k dofor j: =1 to t doif b[i,j]>0 then pr: =b[i,j]*pr; inc (k); t: =t-1; until k=4; writeln (pr); min: =50; for i: =1 to n dofor j: =2 to 2 doif b[i,j]