Нужна прога в синтаксисе PASCAL ABC
Составить программу матрицу 10х10, заполненную случайным образом
Посчитать сумму элементов главной диагонали
Определить количество элементов < сумма/15
var
a:array[1..10,1..10] of integer;
i,j,summ,kol:integer;
begin
randomize
и тд
за ответ 30 баллов