uses crt;
const N=4;
const M=5;
var A: array[1..N,1..M] of integer;
var i,j,c: integer;
Begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(10)+50;
write(a[i,j]:4);
end;
writeln
end;
writeln(New);
for j:=1 to m do begin
c:=a[2,j];
a[2,j]:=a[4,j];
a[4,j]:=c ;
end;
for i:=1 to n do begin
for j:=1 to m do begin
write(a[i,j]:4);
end;
writeln
end;
end.
