Напишите программу пожалуйста
Найти количество положительных элементов, лежащих на главной диагонали квадратной матрицы. Матрица заполняется случайными числами от -50 до 50.

const n = 3;var a:array [1..n, 1..n] of Integer; i, j, k:Integer;Begin k:=0; for i:=1 to n do for j:=1 to n do a[i, j]:=random(-50, 50); for i:=1 to n do if a[i, i] > 0 then k:=k + 1; writeln('Количество положительных элементов, лежащих на главной диагонали квадратной матрицы: ', k);end.