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 if i
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.