Моделирование технических систем. Дьячков Ю.А - 126 стр.

 n2:=m+1;
 {Последняя строка третьего блока}
 n3:=n2+((m-1)*m) div 2;
 {Последняя строка четвертого блока}
 n4:=(((m+1)*(m+2)) div 2);
 clrscr;
{Построение первого блока}
 for k:=1 to m do
 begin
 x[k,1]:=-1;
 end;
{Построение второго блока======}
for n:=n1+1 to n2 do
begin
 for k:=1 to m do
 begin
 x[k,n]:=1;
 if (k=n-1) then x[k,n]:=-1;
 end;
end;
{Построение третьего блока=====}
for n:=n2+1 to n3 do
begin
 for k:=1 to m do
 begin
 x[k,n]:=-1;
 end;
end;
k1:=1;k2:=1;
for n:=n2+1 to n3 do
begin
 k2:=k2+1;
 for k:=1 to m do
 begin
 if (k=k2) then
 begin
 x[k,n]:=1;
 x[k1,n]:=1;
 end;
 end;
 if k2=m then
                       126