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

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.