program test;

const M = 10; N = 10;

type Item = Integer;

var
  x : array [1..M, 1..N] of Item;
  y : array [1..N] of Item;
  i, j : Integer;
  v : Item;

begin
  for i := 1 to M do begin
    for j := 1 to N do begin
      v := i*N + j;
      x[i, j] := v;
      Write(v:3, ' ');
    end;
    WriteLn;
  end;
  
  WriteLn;
  y := x[1];
  for j := 1 to N do
    Write(y[j]:3, ' ');
  WriteLn;
end.