Найти сумму произведения четных и произведения нечетных элементов матрицы — Pascal(Паскаль)

var
 a:array[1..100] of integer;
 s,p1,p2,n,i:integer;
begin
 readln(n);
 for i:=1 to n do 
  read(a[i]);
 p1:=1;
 p2:=1;
 for i:=1 to n do
  if a[i] mod 2=0 then p1:=p1*a[i] 
   else p2:=p2*a[i];
 s:=p1+p2;
 writeln(s);
end.