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.