Массив А вводится с клавиатуры. Найти суммы чётных количество отрицательных его элементов. Размер произвольный. написать программу с одной функцией и процедурой . За ранее огромное спасибо

нужна полная программа

Program primer;var I,k,d,n: integer;A: array[1..100] of integer; beginfor i:=1 to n doif a[i] mod 2=0 then k:=k+1;if a[i]<0 then d:=d+1;writeln(k,' количество четных членов массива');writeln(d,' количества отрицательных членов массива');end.