program PascalGuru;
uses crt;
 
var Z:array[1..6,1..6] of integer;
    i,j,summa:integer;
 
 
begin
 
for i:=1 to 6 do
for j:=1 to 6 do Z[i,j]:=2+random(26); {begin
write ('A[',i,',',j,']='); readln (Z[i,j]); end;     }
 
write ('Vot vvedennaya vami matrica A:');
for i:=1 to 6 do begin writeln;
for j:=1 to 6 do write (Z[i,j]:8,' '); end;
 
writeln;writeln;
 
for i:=1 to 6 do
 if Z[i,i]<>0 then
    begin
     summa:=0;
     for j:=i+1 to 6 do summa:=summa+Z[i,j];
     Z[i,i]:=summa;
    end;
 
write ('Preobrazovannaya matrica A:');
for i:=1 to 6 do begin writeln;
for j:=1 to 6 do write (Z[i,j]:8,' '); end;
 
readln;
end.