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