Скласти блок-схему і програмний код алгоритму формування такої...

Const
n = 6;

var
i, j: integer;
a: array[1..n, 1..n] of integer;

begin
for i := 1 to n do
begin
    for j := 1 to n do
    begin
      if j < i then a[i, j] := 0
      else a[i, j] := 1;
      write(a[i, j])
    end;
    writeln;
end;
end.

Тестовое решение:

111111
011111
001111
000111
000011
000001