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.