const n = 5; m = 6; var i, j, k, p :integer; c :array [1..n,1..m] of integer; begin for i:= 1 to n do for j:= 1 to m do readln(c[i,j]); for k:= 1 to n*m do for i:= 1 to n do for j:= 1 to m do begin if i <> n then begin if c[i+1,j] < c[i,j] then begin p:= c[i+1,j]; c[i+1,j]:= c[i,j]; c[i,j]:= p; end; end; end; for i:= 1 to n do begin for j:= 1 to m do write(c[i,j]:4); writeln; end; end.