Создать массив размерностью 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 сборка 1219Const 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;