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 beginfor 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 beginfor j:=1 to 5 do beginif 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 beginfor j:=1 to 5 do beginif 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.