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

const n=10; Var a: array[1..10] of  integer;       i: integer;         s,k: real; Begin k:=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.