Составьте Paskal-программу решение следующей задачи: Задан массив A(n).Найти сумму и количество чётных отрицательных элементов этого массива

Const n=10; Var a:array[1..n]of integer; i,S,k:integer;  begin     for i:=1 to n do       begin         a[i]:=random(100)-50;         write(a[i]:4);           if (a[i] mod 2=0)and(a[i]<0)then              begin                s:=s+a[i];                 k:=k+1;              end      end; writeln; writeln('S: ',s,'   k:',k); end.