<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := MatrRandom(3, 3, -99, 99);
a.Println(4); Writeln(4 * a.ColCount * '-');
var s := 0;
for var i := 0 to 2 do s += a[i, i];
Println('Сумма элементов главной диагнонали:', s)
end.
<h2> 16 19 97</h2><h2> 11 -97 14</h2><h2> 24 40 -38</h2><h2>------------</h2><h2>Сумма элементов главной диагнонали: -119 </h2>