program z8_127; {îòëàäèòü}
var
a:array[1..3,1..3] of integer;
n,m,i,j, min,k,h : integer;
f:boolean;
begin
write('Ââåäèòå êîëè÷åñòâî ñòðîê â ìàòðèöå ');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ â ìàòðèöå ');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('ââåäèòå A[',i,',',j,'] ');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m-1 do
begin
min:=a[i,j];
for h:=j to m do
if a[i,h]<=min then begin
min:=a[i,h];
k:=h;
end;
a[i,k]:=a[i,j];
a[i,j]:=min;
end;
for h:=1 to n-1 do
begin
f:=true;
for i:=h+1 to n do
for j:=1 to m do
if a[h,j]<>a[i,j] then f:=false;
if f then writeln('ïàðà ïîõîæèõ ñòðîê',h,' è ',i);
end;
End.