Дан массив целых чисел из n элементов. Найти сумму четных и произведение нечётных элементов массива.

А где описание массива?

var n, i: Integer;      sum, pr: LongInt;      a: array[1..10000] of Integer;Begin   sum := 0; pr := 1;   readln(n);   for i := 1 to n do begin      read(a[i]);      if a[i] mod 2=0      then sum := sum + a[i]      else pr := pr*a[i];   end;   writeln(sum,' ',pr);End.