Дан массив а(15), сформированный случайным образом на промежутке [-25; 45]. найти сумму положительных элементов массива а. напишите программу на паскале

Pascal abc
Результат:
  -2  44  30 -18  43  19  39  42 -25  -4  33  36 -15  41  44
s=371