program zhn;
var
  sum,sum1,i,i1:integer;
  a:array[1..3,1..4] of integer;
  m,n:smallint;
begin
  randomize();
  writeln;
  writeln('До преобразования');
   for i:=1 to 3 do begin
    for i1:=1 to 4 do begin
      a[i,i1]:=random(-12,12);
      write(a[i,i1],' ');
    end;
    write(' | ');
  end;
  for i:=1 to 3 do begin
    for i1:=1 to 2 do begin
      m:= a[i,i1];
      n:= a[i,5-i1];
      a[i,i1]:= n;
      a[i,5-i1] := m;
      
      
    end;
  end;
  writeln;
  writeln('После преобразования');
 for i:=1 to 3 do begin
    for i1:=1 to 4 do begin
      
      write(a[i,i1],' ');
    end;
    write(' | ');
  end;
end.