Дана матрица J(3,3). Поменять местами строчки со столбцами. Отыскать сумму частей,

В задании так было написано

И на каком языке программка нужна? На Паскале?

После транспонирования, язык программирования Delphi

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=MatrRandom(3,3,10,50);
  a.Println(3); Writeln(3*a.ColCount*'-');
  a:=Transpose(a);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var s:=0;
  for var i:=0 to 2 do s+=a[i,i];
  Writeln('S=',s)
end.

 15 40 13
 21 21 26
 14 24 31
---------
 15 21 14
 40 21 24
 13 26 31
---------
S=67