program PascalGuru;
 
var A:array [1..50,1..50] of integer;
    i,j,n,min,m:integer;
 
begin
 write('N= '); readln(n);
 
 for i:=1 to n do
 for j:=1 to n do begin write('A[',i,',',j,']='); readln(A[i,j]); end;
 
 for i:=1 to n do begin writeln;
 for j:=1 to n do write (A[i,j]:8);  end;
 {******************************************}
 
 min:=A[1,1];
 for i:=1 to n do
 for j:=1 to n do
 if A[i,j]<min then min:=A[i,j];
 
 if n mod 2=0 then m:=n div 2 else m:=(n div 2)+1;
 
 
 for i:=1 to m do
 for j:=1 to m do A[i,j]:=min;
 
 writeln;
 writeln;writeln('Preobrazovannyi:');
 
 for i:=1 to n do begin writeln;
 for j:=1 to n do write (A[i,j]:8);  end;
 
 readln;
end.