Заполнить произвольный массив размером N x N (N <10) по следующему правилу: 10000 02000 00300…

Program Task; Const N=3; Var a: Array [1… N, 1… N] of Integer; i, j: Integer; BeginFor i: =1 To N DoBeginIf N Mod 2=1 ThenBeginIf i <= N Div 2+1 Thena[i, i]: =iElsea[i, i]: =N — i+1; EndElseIf i <= N Div 2 Thena[i, i]: =iElsea[i, i]: =N — i+1; End; For i: =1 To N DoBeginFor j: =1 To N DoWrite (a[i, j], '); WriteLn; End; ReadLn; End.