Для одномерного массива X3, содержащего n элементов, найти произведение и количество элементов, превышающих заданное число С

Var

i, p, s, c : integer;

a : array [0 ... n] of integer; {n - заданное число }

begin

p:=1;

s:=0;

readln (c) ;

for i:=0 to n do {заменить n на кол-во элементов}

begin

if a[i] > c then

begin

p: = p * a[i];

s: = s + 1;

end;

end;

writeln (p) ; {вывод произведения чисел больше заданного}

writeln (s) ; {вывод колличества этих чисел}

end.