Сформировать квадратную матрицу порядка n по заданному образцу(Паскаль) 1 0 0 … 0 0 0

1 1 0 … 0 0 0

1 1 1 … 0 0 0

…………….

1 1 1 … 1 1 0

1 1 1 … 1 1 1

Pascal

const

 n=10;

var

 a : array [0..n, 0..n] of byte;

 i, j : integer;

begin

 for j:=0 to n-1 do begin

   for i:=0 to n-1 do begin

     if i<=j then

       a[i,j] := 1

     else

       a[i,j] := 0;

     write(a[i,j], ' ')

   end;

   writeln();

 end;

end.