Задание

Требуется заполнить квадратную матрицу размером 5 * 5 значениями от 1 до 25 и найти сумму элементов главной диагонали.
Заполните пропуски в фрагменте программы, решающем эту задачу:

s := ... ;
n := ... ;
num := 0;
for i := 1 to n do begin
for j := 1 to n do begin
a

\[i, j\]
:= ... ;
num := num + ... ;
if ... = ... then
s := s + ... ;
end;
end;