22. Матрица А(5,5) делится на две части строкой 3. Найти произведение(умножение) каждой части.

var i,j,ph,pL:integer;A:array[1..5,1..5] of integer;d,Sn,min:real; begin  ph:=1;pL:=1; for i:=1 to 5 do begin for j:=1 to 5 do beginA[i,j]:=random(100)-50;write(A[i,j]:4);end;writeln;end;writeln;writeln; for i:=1 to 5 do begin for j:=1 to 5 do begin if i < 3 then begin ph:=ph* A[i,j];write(A[i,j]:4);end;end; if i < 3 then writeln;end; for i:=1 to 5 do begin for j:=1 to 5 do begin if i > 3 then begin pL:=pL* A[i,j];write(A[i,j]:4);end;end;writeln;end; write('ph =',ph:10,'pL =',pL:10);end.