13.1. Дан массив целых чисел из 12 элементов. Найти сумму отрицательных элементов массива.
13.2. Дан массив целых чисел из 12 элементов. Найти количество элементов массива являющихся нечетными и положительными.
13.3. Дан массив целых чисел из 12 элементов. Выяснить верно ли, что количество положительных элементов не превышает 5.

Турбо паскаль. Помогите пожалуйста :)

13. 1vara: array [1.. 100] of integer; k,i: integer; beginfor i:= 1 to 12 doreadln(a[i]); k:=0; for i:= 1 to 12 do if a[i] < 0 then k:=k+a[i]; writeln(k); end.