Поменять местами две диагонали
 Дан квадратный массив. Поменяйте местами в каждом столбце элементы, стоящие на главной и побочной диагонали.
 Входные данные:
 В первой строке дано число n≤10. Далее идут n строк по n неотрицательных целых чисел не больше 100.
 Выходные данные
 ответ на задачу.
 Примеры
 Ввод
 3
 1 2 3
 4 5 6
 7 8 9
 Вывод
 7 2 9 
 4 5 6 
 1 8 3
                                                                                                
                            
                            
                            
                                
                            
                            
                                
                            
                            
                            
                         
                    
Если как в примере, вот код.
Если как обычно принято, надо заменить a[n - 1 - i, i] на a[i, n - 1 - i]
//PascalABC.NET
begin
var n := ReadInteger;
var a := ReadMatrInteger(n, n);
for var i := 0 to n - 1 do
Swap(a[i, i], a[n - 1 - i, i]);
a.Print
end.