program z8_113;
uses crt;
const n=5; m=5;
type r=array[1..n,1..m] of integer;
var a:r;
i,j:integer;
procedure swap(var x,y:integer);
var t:integer;
BEGIN
t:=x;
x:=y;
y:=t;
end;
procedure swapcolumn(var a:r; n,q1,q2:integer);
var i:integer;
BEGIN
for i:=1 to n do swap(a[i,q1],a[i,q2]);
end;
BEGIN
if(m>5) and not odd(m) then begin
swapcolumn(a,n,2,m div 2);
swapcolumn(a,n,m-1,m div 2+1);
end;
readln;
END.