uses
  crt;

var
  a, b: array[1..20, 1..20]  of  integer;
  m, j, i: integer;

begin
  writeln('введите m');
  readln(m);
  randomize;
  for j := 1 to m do
  begin
    for i := 1 to m do
    begin
      a[j, i] := random(24) - 12;
      write(a[j, i]:4);
    end;
    writeln;
  end;
  writeln;
  for j := 1 to m do
  begin
    for i := 1 to m do
    begin
      b[j, i] := a[i, j];
      write(b[j, i]:4);
    end;
    writeln;
  end;
  readln
end.