Информатика( 9 класс) помогите срочно, пожалуйста.
1.найти произведение элементов массива, состоящее из n элементов, имеющих четное значение. элементы вводятся с помощью генератора случайных чисел.
2.найти среднее арифметическое элементов массива состоящих из 10 чисел, которые превышают число с. Элементы вводятся с клавиатуры.

В этой проге 1 и 2program p1;uses crt; Const n = 10;var a:array [1..n] of integer;i,p,c:integer;k,sr:real;beginread(c); for i := 1 to N do begin a[i]:= random(21)-10; write(a[i]:4); end; writeln; p:=1; sr:=1;  for i:=1 to N do begin   If (a[i]mod 2 = 0) and (a[i]<>0) then begin    p:=p*a[i];    end;    If c<=a[i] then begin    sr:=a[i]*sr;    K:=k+1;    end;        end;    sr:=sr/k;   writeln('Произведение чётных :',p);   writeln('Среднее арифметическое ',sr:5:2);end.Только всё равно проверь!