Заполнить массив по образцу

const
  W=4; n=5;
var
  a: array [1..n,1..n] of integer;
  i, j: integer;
begin
  for i:=1 to n do begin
    a[i,i]:=1; a[i,n-i+1]:=1;
  end;
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:W);
    WriteLn;
  end;
end.

const
  W=4; n=5;
var
  a: array [1..n,1..n] of integer;
  i, j: integer;
begin
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do begin
      if (i=j) or (i=n-j+1) then a[i,j]:=1 else a[i,j]:=0;
      Write(a[i,j]:W);
    end; WriteLn;
  end;
end.

const
  W=4; n=5;
var
  a, i, j: integer;
begin
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do begin
      if (i=j) or (i=n-j+1) then a:=1 else a:=0;
      Write(a:W);
    end; WriteLn;
  end;
end.

const
  W=4; n=5;
var
  i, j: integer;
begin
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to n do
      if (i=j) or (i=n-j+1) then Write(1:W) else Write(0:W);
    WriteLn;
  end;
end.