program PascalGuru;
 
var A:array [1..50,1..50] of integer;
    i,j,n: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;
{******************************************}
 
for i:=1 to n do
for j:=1 to n do
    begin
    if i=j then A[i,j]:=1;
    if i>j then A[i,j]:=0;
    if i<j then A[i,j]:=i+j;
    end;
 
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.