program Massive;
uses crt;
const n=4;
var A:array[1..n,1..n] of integer; i,j,sp,sg,min: integer ;
begin
clrscr;
writeln('Vvedite elementi matrici');
for i:=1 to n do
begin
for j:=1 to n do
begin
write('A[',i,',', 'j]=');
end;
writeln;
end;

writeln('Ishodnay matrica');
sg:=0;
sp:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if j=i then sg:=sg+a[i,j]
else if j=n-i+1 then sp:=sp+a[i,j];
end;
end;
writeln;
writeln('summa elementov glavnoi diagonali=',sg);
writeln('summa elementov pobochnoi diagonali=',sp);
if sg>sp then
begin
writeln('summa na glavnoi diagonali bolshe');
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
write('minimalni element=',min);
end
else if sp>sg then
begin
writeln('summa na pobochnoi bolshe');
writeln('zamena pologitelnix na otrizatelnie');
for i:=1 to n do
begin
for i:=1 to n do
begin
if a[i,j]>0 then a[i,j]:=-a[i,j];
write(a[i,j]);
end;
writeln(a[i,j]);
end;
writeln;
end
else
begin writeln('summi ravni');
writeln('vozvedenie v kvadrat'); end;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=sqr(a[i,j]);
write(a[i,j]:3);
end;
writeln;
end;
readln
end.