program ff;
var A:array[1..100,1..100] of integer; {переменная массива}
    i,j,n:integer; {переменные для циклов}
 
begin
write ('Vvedite razmer matricy A: ');
readln (n); {считываем размер массива}
 
for i:=1 to n do
for j:=1 to n do begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем сам массив}
 
write ('Vot vvedennai vami matrica A: ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; {выводим массив на экран}
 
for i:=1 to n do
for j:=1 to n do
if i<>j then {если элемент из главной диагоняли - его нет смысла удваивать}
A[i,j]:=A[i,j]+A[i,i];
 
writeln;
write ('Vot konecnyi matricy A: ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end; {выводим массив на экран}
 
readln;
end.