{работает с матрицей 4*4}
Program P3;
const n=4;
var V : array [1..n,1..n] of integer;
    D : array [1..n] of integer;
    i, j : integer;
begin
writeln ('Vvedite massiv');
for i:=1 to n do
for j:=1 to n do begin
readln (V[i,j]); writeln ('V[',i,',',j,']=', V[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
if i=j then D[i]:=V[i,j];
for i:=1 to n do begin writeln;
for j:=1 to n do begin
V[i,j]:=V[i,j]+D[i];
write (V[i,j]:3); end; end;
readln;
end.