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.Тестовое решение:111111011111001111000111000011000001