В ОДНОМЕРНОМ МАССИВЕ ИЗ 10 ЭЛЕМЕНТОВ ПОСЧИТАТЬ КОЛИЧЕСТВО ЧЕТНЫХ ЧИСЕЛ И ПРОИЗВЕДЕНИЕ НЕЧЕТНЫХ

Спасибо

constn=10;Var a: array[1..10] of  integer;      i: integer;        s,k: real;Begink:=1; s:=0;  For i:=1 to n do     begin       write ('Число = '); readln (a[i]);       if a[i] mod 2 = 0  then s:=s+1 else k:=a[i]*k;     end;   writeln('Четных чисел = ',s);   writeln('Произведение нечетных = ',k);End.