В ОДНОМЕРНОМ МАССИВЕ ИЗ 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.