PROGRAM llll;
uses CRT;
CONST N=4;
VAR A:ARRAY[1..N,1..N] OF INTEGER;
I,J,b:INTEGER;
BEGIN clrscr;
randomize;
for I:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20)+2;
write(a[i,j]:5);
end;
writeln;
writeln;
end;
for i:=1 to n do begin b:=a[i,j-2];
a[i,j-2]:=a[i,j-1];
a[i,j-1]:=b;
end;
for i :=1 to n do begin for j:=1 to n do begin write(a[i,j]:5)end;
writeln;
end;
readln;
END .