составьте программу нахождения суммы положительных значений массива.Дан массив состоящий из 15 элементов.Значение массива произвольные числа.

constnmax=5;(любое число можешь поставить)typemas = array [1..nmax] of integer;varA:mas;sum,n:integer;beginreadln(n);sum:=0;for i:=1 to n do if  (A[i] > 0) then sum:=sum+A[i];writeln('Summa=',sum);end.