Дан массив : -5 3 -2 6 1
Найти сумму положительных элементов массива ( Pascal Abc)

program p1;var i:integer;a:array[1..5] of integer;begina[1]:=-5;a[2]:=3;a[3]:=-2;a[4]:=6;a[5]:=1;for i:=1 to 5 dobeginif(a[i]<0) then write(a[i], ' ');end;end.P.S. странное задание