program zad_3;
const N= 10 ;
type Tarr=array[ 1 ..N, 1 ..N] of integer;
var 
a:TArr;
b:TArr;
i,j,temp:integer;
begin
for i:= 1  to N do
begin
for j:= 1  to N do
begin
writeln('Чето типа введите элемент a['+i+','+j+']: ');
readln(a[i,j]);
writeln('Чето типа введите элемент b['+i+','+j+']: ');
readln(b[i,j]);
end;
end;



for i:= 1  to N do
begin
temp= 0 ;
for j:= 1  to N do temp:=b[i,j]+temp;
for j:= 1  to N do a[i,j]:=a[i,j]+temp;
end;

for i:= 1  to N do
for j:= 1  to N do
begin
writeln('Элемент новой матрицы a['+i+','+j+'] :', a[i,j]);
end;
end.

for j:= 1  to N do temp:=b[i,j]+temp;
=>
for j:= 1  to N do temp:=b[i,j]*temp;