Developing.ru

РЕШИТЕ ЗАДАЧУ ПЛИЗЗ. ХОТЯ БЫ КАК НАПИСАТЬ НАЧАЛО
Дана действительная квадратная матрица порядка 2n. Получить новую матриц, переставляя её блоки размера n*n. (ПО ДИАГОНАЛИ

for i:=0 to 2*n-1 do
for j:=0 to 2*n-1 do
B[(i+n) mod 2*n, (j+n) mod 2*n]=A[i,j];

спасибо за помощь