Найти сумму положительных элементов вектора C[15].
Помогите составить программу в pascalabc

//Проверил. Да, равно.//Pascal ABC.NET 3.1 сборка 1219Const n=15;Var ar:array[1..n] of integer; i,s:integer;beginrandomize; writeln('Array:'); for i:=1 to n do  begin   ar[i]:=random(-10,10);   write(ar[i]:4);   if ar[i]>0 then s:=s+ar[i];  end; writeln; write('Result:',s);end.Пример работы программы:Array:   3  -7   0   9  -9   6  -1   0   1   0  -7   9  -9  -5  -8Result:28