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

 begin
 k1:=k1+1;
 k2:=k1;
 end;
end;
{Построение четвертого блока===}
k2:=0;
for n:=n3+1 to n4 do
begin
 k2:=k2+1;
 for k:=1 to m do
 begin
 x[k,n]:=0;
 if (k=k2) then x[k,n]:=1;
 end;
end;
{Распечатка плана============}
for n:=1 to n4 do
begin
 WriteLn;
 for k:=1 to m do
 begin
 TextColor(15);
 Write(x[k,n]:3:0);
 end;
end;
 ReadLn;
 end.
 Результаты работы программы приведены ниже.
 -1 -1 -1 -1 -1
 -1 1 1 1 1
 1 -1 1 1 1
 1 1 -1 1 1
 1 1 1 -1 1
 1 1 1 1 -1
 1 1 -1 -1 -1
 1 -1 1 -1 -1
 1 -1 -1 1 -1
 1 -1 -1 -1 1
 -1 1 1 -1 -1
 -1 1 -1 1 -1
                      127