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

1 2 3 4 5

16 17 18 19 6

15 24 25 20 7

14 23 22 21 8

13 12 11 10 9


P.S. нужно через цикл for