Заполнить двумерный массив как показано на рисунке.
Нужно на языке Паскаль.

ПаскальАВС.НЕТvar  a:array[1..7,1..7]of integer;  i,j:integer;beginj:=7;for i:=1 to 7 do  begin  a[i,i]:=1;  a[i,j]:=1;  j:=j-1;  end;for i:=1 to 7 do  begin  for j:=1 to 7 do  write(a[i,j]:3);  writeln;  end;end.