Дана квадратная матрица (10х10), заполненная случайными числами ( от 0 до 50 ). Подсчитать сумму элементов, значения которых кратны трём и расположенных на побочной диагонали. Паскаль АБС

##

var a := MatrRandom(10, 10, 0, 50);

a. print(4);

var s,i:integer;

s:=0;

for i:= 0 to 9 do

if a[i, 9-i] mod 3 = 0 then

inc(s, a[i, 9-i]);

print('Сумма=',s);

-------------free pascal-------------

var