program PascalGuru;
 
var A,B:array[1..6,1..6] of real;
    i,j:integer;
    min,max,P:real;
 
 
begin
 
for i:=1 to 6 do
for j:=1 to 6 do begin
write ('N[',i,',',j,']='); readln (A[i,j]); end;
 
write ('Vot vvedennaya vami matrica A:');
for i:=1 to 6 do begin writeln;
for j:=1 to 6 do write (A[i,j]:8:2,' '); end;
 
min:=A[1,1];
max:=A[1,1];
for i:=1 to 6 do
for j:=1 to 6 do
    BEGIN
    if A[i,j]>max then max:=A[i,j]; {находим максимум}
    if A[i,j]then min:=A[i,j]; {находим минимум}
    end;
 
P:=(min*min*min*min)+(max*max);
 
for i:=1 to 6 do
for j:=1 to 6 do
if i=2 then B[i,j]:=A[i,j] else B[i,j]:=A[i,j]+P+0.74;
 
writeln;  writeln;
write ('Vot novaya matrica:');
for i:=1 to 6 do begin writeln;
for j:=1 to 6 do write (B[i,j]:8:2,' '); end;
 
readln;
end.