Program lol;car a : array [1..6,1..6] of real ; i,j : real ;s,S1,s2,s3,s4,s5,p,p1 : real ;begin s:=0;s1:=0;s2:=0;s3:=0;s4:=0; p:=1;p1:=1;for i:=1 to 6 do beginfor j:=1 to 6 do read (a[i,j]); end; for i:=1 to 6 do beginfor j:=1 to 6 do begin if (i=j) then p:=p*a[i,j]; end;end;writeln('произведение на глав диагонале= ',p); for i:=1 to 6 do beginfor j:=1 to 6 do begin p1:=p1*a[i,j]; end;end;writeln('произведение всех элементов= ', p1); for j:=1 to 6 do begin s:=s+a[1,j]; end;writeln (' сумма 1-ой строки=',s); for j:=1 to 6 do begin s1:=s1+a[2,j]; end;writeln (' сумма 2-ой строки=',s1); for j:=1 to 6 do begin s2:=s2+a[3,j]; end;writeln (' сумма 3-eй строки=',s2); for j:=1 to 6 do begin s3:=s3+a[4,j]; end;writeln (' сумма 4-ой строки=',s3); for j:=1 to 6 do begin s4:=s4+a[5,j]; end;writeln (' сумма 5-ой строки=',s4); for j:=1 to 6 do begin s5:=s5+a[6,j]; end;writeln (' сумма 6-ой строки=',s5); for i:=1 to 6 do begin for j:=1 to 6 do begin s5:=a[1,6]+a[2,5]+a[3,4]+a[4,3]+a[5,2]+a[6,1];end;end;writeln('сумма чисел на побочной диагонале=',s5);end.