Сформировать массив A из N случайных чисел в диапазоне от -100 до 100(число N вводится с клавиатуры, его значение не больше 20). Найти сумму всех положительных четных элементов.в паскале

var a,b,c,i:integer;d:array [1..1000] of integer;beginrandomize;writeln('введите число');readln(a);for i:=1 to a do begind[a]:=random(-100,100);writeln(d[a]);if (d[a]>0) and (d[a] mod 2 = 0) thenc:=c+d[a];end;writeln('ответ : ',c);end.