Пример кода на Turbo Pascal:

program Main;
const
N = 3;
type
TArray = array[1..N, 1..N] of Integer;
var
A: TArray;
i, j, diagonalSum: Integer;
begin
// Заполнение массива случайными числами
randomize;
for i := 1 to N do
for j := 1 to N do
A[i, j] := random(10);
// Вывод исходного массива на экран
writeln('Исходный массив:');
for i := 1 to N do
begin
for j := 1 to N do
write(A[i, j], ' ');
writeln;
end;
// Нахождение суммы элементов главной диагонали
diagonalSum := 0;
for i := 1 to N do
diagonalSum := diagonalSum + A[i, i];
// Вывод суммы элементов главной диагонали на экран
writeln('Сумма элементов главной диагонали: ', diagonalSum);
end.

Этот код заполняет двумерный массив 3x3 случайными числами и выводит его на экран. Затем находится сумма элементов главной диагонали и выводится на экран.