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

program Main;
var
arr: array[0..2, 0..2] of Integer;
sum, i: Integer;
begin
// заполняем массив случайными числами
Randomize;
for i := 0 to 2 do
begin
for j := 0 to 2 do
begin
arr[i, j] := Random(10); // случайное число от 0 до 9
end;
end;
// выводим исходный массив на экран
writeln('Исходный массив:');
for i := 0 to 2 do
begin
for j := 0 to 2 do
begin
write(arr[i, j], ' ');
end;
writeln;
end;
// находим сумму элементов главной диагонали
sum := 0;
for i := 0 to 2 do
begin
sum := sum + arr[i, i];
end;
// выводим сумму на экран
writeln('Сумма элементов главной диагонали: ', sum);
end.

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