Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6: 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 решить pascalabc оформить в виде процедуры.

//Pascal ABC.NET 3.1 сборка 1219

Const
 n=6;

Type
 ty=array[1..n,1..n] of integer;

procedure inic(var ar:ty);
 Var
  i,j,k:integer;
begin
  k:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    ar[i,j]:=0;
  if not(odd(i)) then
   begin
    k:=k+2;
    ar[i,k]:=1;
   end;
  end;
end;