Все элементы чётных столбцов возвести в куб, а элементы нечётных столбцов разделить на 3

const
  M = 5;
  N = 8;
 
type
  T_Mas = array [1..M, 1..N] of integer;
 
procedure Input(var x: T_Mas);
var
  i, j: integer;
begin
  randomize;
  writeln('Исходная матрица:');
  writeln;
  for i := 1 to M do
  begin
    for j := 1 to N do
    begin
      x[i, j] := random(21) - 10;
      write(x[i, j]:8);
    end;
    writeln;
  end;
  writeln;
end;
 
procedure Square(var x: T_Mas);
var
  i, j: integer;
begin
  for i := 1 to M do
    for j := 1 to N do
      if j mod 2 = 0 then
        x[i, j] := x[i, j] * x[i, j] * x[i, j]
      else
        x[i, j] := x[i, j] div 3;
end;
 
procedure Output(const x: T_Mas);
var
  i, j: integer;
begin
  Writeln('Новая матрица:');
  Writeln;
  for i := 1 to M do
  begin
    for j := 1 to N do
      Write(x[i, j]:8);
    Writeln;
  end;
end;
 
var
  x: T_Mas;
 
begin
  Input(x);
  Square(x);
  Output(x);
end.