Впаскале а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