Дан массив целых чисел из 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.

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