В Паскале АBC (можно net) написать две программы ,чтобы в одной из них был магический квадрат со стороной 4,а во второй со стороной 6

можете сделать черз массив?

// PascalABC.NET 3.2, сборка 1436 от 01.05.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=new integer[4,4] ((1,15,14,4),(12,6,7,9),(8,10,11,5),(13,3,2,16));  a.Println(3);  var b:=new integer[6,6] ((6,32,3,34,35,1),(7,11,27,28,8,30),    (19,14,16,15,23,24),(18,20,22,21,17,13),(25,29,10,9,26,12),    (36,5,33,4,2,31));  Writeln;  b.Println(3);end.Результат:  1 15 14  4 12  6  7  9  8 10 11  5 13  3  2 16  6 32  3 34 35  1  7 11 27 28  8 30 19 14 16 15 23 24 18 20 22 21 17 13 25 29 10  9 26 12 36  5 33  4  2 31