const
  a = 5;

const
  b = 5;

type
  matrix = array[1..a, 1..b] of integer;

var
  arr: matrix;

begin
  for var i := 1 to a do
  begin
    for var j := 1 to b do
    begin
      arr[i, j] := random(100);
      write(arr[i, j]:3);
    end;
    writeln();
  end;
  write(#10);
  for var i := 1 to a do
  begin
    for var j := 1 to b do
    begin
      if (j mod 2 = 0) then arr[i, j] := 0 else arr[i, j] := 1;
      write(arr[i, j]:3);
    end;
    writeln();
  end;
end.