Составить программу на языке паскаль задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали

var n, i, j, ans : integer;a : array[,] of integer;begin    read(n);    ans := 0;    SetLength(a, n + 1, n + 1);    for i := 1 to n do        for j := 1 to n do            read(a[i, j]);    for i := 1 to n do        for j := i + 1 to n do            if (a[i, j] > 0) then                ans := ans + 1;    writeln(ans);end.