//Сумма столбиков матрицы 4х4
var
mas:array[1..4,1..4] of integer;
sum:array[1..4] of integer;
j,i:integer;
begin
for i:=1 to 4 do
sum[i]:=0;
for j:=1 to 4 do
for i:=1 to 4 do
read(mas[j][i]);
for j:=1 to 4 do
for i:=1 to 4 do
sum[i]:=sum[i]+mas[j][i];
for i:=1 to 4 do
writeln('Сумма столбика ',i,'=',sum[i]);
end.
-13+3 = -10
-10+3^2 = -10+9 = -1
-1+3^3 = -1+27 = 26
26+3^4 = 26+81 = 107
107+3^5 = 107+243 = 350
350+3^6 = 350+729 = 1079