const N = 10;
          M = 6;

var A : array [1..N, 1..M] of integer;
      i, j : integer;


begin
  for i := 1 to N do A[i, M] := 1;
  for j := 1 to M do A[N, j] := 1;
end.