Сформулируйте массив по образцу 0 0 0 0 0 0 7 0 0 0 0 0 6 0 0 0 0 0 5 0 00 0 0 4 0 0 0 0 0 3 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0

Var A:array[1..7,1..7] of byte;
Begin
For var i:= 1 to 7 do
   Begin
   For var j:= 1 to 7 do
      Begin
      if (8-i = j) then A[i,j]:= j
      else A[i,j]:=0;
      Write(A[i,j])
      End;
   Writeln
   End;
End.