For i:=1 to 6 do Write(a[i,1],#10#13,a[i,6],#10#13,a[1,i],#10#13,a[6,i],#10#13);

  for i := 1 to n do
    for j := 1 to n do
      if (i in [1, n]) or (j in [1, n]) then begin
        write(a[i, j]:5);
      end;

const
  n = 6;
  a: array[1 .. n, 1 .. n] of integer =
    (
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6),
     (1, 2, 3, 4, 5, 6)
    );

var
  i, j: integer;
  k, count: integer;

  arr: array[1 .. 4 * n] of integer;

procedure add_buffer(x: integer);
begin
  inc(count);
  arr[count] := X;
end;

begin
  count := 0;

  for i := 1 to n do add_buffer(a[1, i]);
  for j := 2 to pred(n) do
    add_buffer(a[j, n]);
  for i := n downto 1 do add_buffer(a[n, i]);
  for j := pred(n) downto 2 do
    add_buffer(a[j, 1]);

  for i := 1 to count do
    write(arr[i]:4);
  writeln;

end.