Создать изображение в виде "1" и "0", Заполнить массив Опции

[Gl00M]

Как уже Volvo подсказал, задача "Заполнить массив n на n по следующей схеме:"

1111111
0111110
0011100
0001000
0011100
0111110
1111111

решается давольно таки легко...
а как решить задачу по схеме:

111101111
111000111
110000011
100000001
000111000
100000001
110000011
111000111
111101111

P.S. Вот что подсказал по поводу первой:

Код

function min(a, b: integer): integer;
begin
  min := a; if b < a then min := b;
end;
function max(a, b: integer): integer;
begin
  max := a; if b > a then max := b;
end;
begin
  ...
  For i:=1 to n do begin
    for j := min(1 + i - 1, n - i + 1) to max(1 + i - 1, n - i + 1) do
      a[i, j] := 1;
  end;
  { ... и печатай матрицу ... }
  ...
end.

За что ему спасибо!

И, кто поможет мне, тоже отдельная благодарностЬ! )))

[Altair]

Код, передал Volvo (у него временные проблемы с провайдером)

...

const
  lines = 12;
  n     = 15;

var
  a: array[1 .. lines, 1 .. n] of integer;
  i, j, k: integer;

begin

  for i := 1 to 5 do
    for k := 1 to 2 * i do begin

      if (3 - i) + k >= 1 then begin
        a[i, (3 - i) + k] := 1;
        a[i, n - ((2 - i) + k)] := 1;
      end;

    end;

  for i := 2 to lines div 2 + 2 do
    for j := i to n - i + 1 do a[4 + i, j] := 1;

  for i := 1 to lines do begin
    for j := 1 to n do write(a[i, j]);
    writeln;
  end;

end.

(С)Volvo