Разработка двумерных массивов.

[Cer)I(ik]

Дана квадратная матрица порядка N. Числа генерировать в диапазоне от 1 до 64 по закону равномерного распределения
(по порядку 1 2 3 4 5 6 7 8
9 10 11 12 13 14 15 16
17 18 19 20 21 22 23 24
25 26 27 28 29 30 31 32
...).
Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы

[Mad_Cat]

max:=m[1,1];
for i:=1 to n do
for j:=1 to n-i+1 do
if a[i,j]>max then max:=a[i,j];