Program a8162;
uses crt;
const n=2;
var a:array[1..n,1..n] of integer;
i,j,k,q,d:integer;
BEGIN
clrscr;
begin
for j:=1 to n do
begin
write('Введите a[',i,',',j,']');
readln(a[i,j]);
end;
writeln;
end;
writeln( 'Вы ввели');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=2 to n do
begin
for j:=1 to n do
if a[i,j]=0 then k:=j;
for q:=1 to n do
begin
d:=a[k,q]; a[k,q]:=a[i,q];a[i,q]:=d;
end;
end;
writeln('Новая матрица');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readln;
END.